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ABSTRACT 


The    field    of    computer   graphics    applied    to    three-dimensional    space 
is    introduced    through   a    discussion    of    perspective    transformations, 
data    structure,    contour    lines,    and    the    problem   of   hidden-line    removal. 
The    transformation   of    three-dimensional   coordinates    into    two-dimensional 
picture-plane    coordinates    is    developed    for    twelve   degrees    of    freedom, 
allowing    the    simultaneous    movement    and    rotation   of   both    the    object 
under   view  and    the    observer.      Basic    concepts    and   requirements    for    the 
structure    of  data   and    ideas    for    the    use    of   contour    lines   are    discussed 
as   a    relative    part    of    the    field    of    three-dimensional   computer   graphics. 
An   algorithm   for    the    removal   of   hidden    lines    is    explained    for    the    case 
where    the    objects    under   view   can   be    assumed    to   be    constructed    of   bounded 
plane    surfaces . 
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I.   INTRODUCTION 

Visualization    in    three -dimens iona 1    space    is    difficult    for   many 
people.       If    three-dimensional   data    is    entered    into   a    computer,    and    the 
computer    can   subsequently  draw   a    perspective   view    from   any   given   aspect, 
the    visualization    problem  will   have   diminished    to    one    of   selecting    the 
most    convenient    view    or   views. 

A.  THE    PICTURE   COMPLEXITY 

A   camera    in    taking   a    picture   will    furnish   a    perspective    view   of 
whatever    lies    in    front    of    the    lens   within    the    limits    of   view.      Similarly 
a    computer    can   be    made    to   draw  a    picture    of   an   object    about   which   dimen- 
sional   information   has    been   given. 

The    actual    picture    drawn    is,    of   course,    dependent    on    the    input 
information,    and   detail   will   be    reproduced   accordingly.       If   enough 
detail    is    given--i.e.    point    by    point--a    picture    quality   reproduction 
would    be    possible.      However,    when    one    considers    the    number    of    points 
involved,    it    becomes   apparent    that    the    task    for    point-by-point    pro- 
cessing   is    prohibitive    in   both    storage    and    time. 

On  the  other  hand,  if  the  information  can  be  reduced  to  a  simpler 
structure,  the  computer  can  handle  the  reproduction  with  much  greater 
ease    and    considerably    less    memory. 

B.  TYPES    OF   THREE-DIMENSIONAL  DISPLAYS 

Several  types  of  3-D  displays  are  possible.   Characteristics  of  each 
type  are  discussed  by  Vlahos  fRef.  4£ ]  and  are  briefly  summarized  here. 
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1  .       Pseudo    3-D   Display 

Pseudo   3-D    is    a    technique    to   give    the    illusion    of    three    dimen- 
sions,   but    only   monocular    cues    are    given.      The    simplest    of   all    pseudo 
3-D   displays    is    the    perspective    display.      Addition    of    other    cues    such 
as    shadow    patterns,    line    size,    motion   cues,    and    brightness    would   add    to 
the    three-dimensional    effect,    but    the    display  would    remain   a    Pseudo    3-D 
display  . 

2  .       Stereoscopic    3-D   Display 

Contrasting  with  the  Pseudo  3-D  display  is  the  Stereoscopic  3-D 
display.   This  technique  employs  binocular  cues.   Two  images  are  formed, 
with  only  slight  differences  between  them.   The  differences  correspond 
to  the  different  images  that  the  right  and  left  eyes  would  see.   One  of 
the  most  familiar  techniques  is  to  make  the  images  of  different  colors 
or  polarizations  and  then  view  the  images  through  special  glasses.   The 
eyes  then  give  the  appropriate  binocular  effect. 
3 .   Volumetric  3-D  Display 

In  the  Volumetric  3-D  display,  the  display  device  itself  is 
three-dimensional  and  for  that  reason  Volumetric  3-D  displays  are 
limited  in  size.   The  span  between  the  eyes  in  this  case  supplies  the 
binocular  cues.   The  information  being  displayed  is  itself  in  three 
d  imensions  . 

C .   IMPLEMENTATION 

The  assumption  made  for  this  study  is  that  objects  to  be  displayed 
will  be  represented  by  plane  surfaces  which  are  limited  by  their  inter- 
sections with  other  plane  surfaces.   The  computer  operates  on  the 
describing  data  entered  and  computes  the  lines  to  be  drawn  for  the 
Pseudo  3-D  picture. 
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1 .  The  Basic  Transformation 

The  basic  perspective  transformation  must  occur  on  the  points 
or  nodes  defining  the  object.   Chapter  II  presents  the  basic  three- 
dimensional  transformation  and  includes  a  discussion  of  rotation  and 
movement  of  the  object,  perspective  transformation,  offsets  from  the 
picture  center,  and  a  scale  factor  which  is  inversely  proportional  to 
magnification  (where  a  scale  factor  of  1/2  corresponds  to  a  magnification 
of  1). 

2 .  Extension  to  Include  Viewing  Plane  Movement 

Chapter  III  extends  the  results  of  chapter  II  to  include  the 
movement  of  the  viewing  plane.   The  capability  introduced  here  is  to 
allow  the  independent  movement  and  rotation  of  the  object  and  viewing 
plane.   The  effect  is  similar  to  an  aircraft  flying  around  an  aircraft 
carrier.   The  aircraft  and  ship's  motion  combine  to  introduce  twelve 
degrees  of  freedom. 

3 .  Storage  and  Access  Requirements 

Whenever  data  must  be  entered  and  stored  in  a  computer  to  be 
utilized  for  some  computation,  a  problem  exists  that  generally  has 
conflicting  requirements,  especially  when  large  amounts  of  data  are 
required.   Storage  in  the  computer  should  be  kept  to  a  minimum,  but 
the  data  must  be  easily  and  preferably  quickly  available.   Storage 
requirements  may  be  reduced  by  placing  or  packing  more  than  one  piece 
of  data  in  one  computer  word.   Packing  allows  savings  in  storage  but 
increases  the  time  required  to  access  the  data.   Chapter  IV  discusses 
a  few  basic  data  structures,  finishing  with  a  complex  structure  used 

ft 

to  draw  with  the  hidden  line  removed.   The  wire  frame  model  is  of  course 
much  simpler  and  quicker  to  draw  than  the  object  with  hidden  lines 
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suppressed.      Appel    [ Re f .    2|    defines    a    ratio    of    the    time    to   draw    the 
wire    frame    model    to    the    time    to    draw    the    model   with    hidden    lines 
suppressed    and    suggests    that    this    ratio    is    a    good    machine-independent 
measure    of    the    efficiency    of    the    hidden- line    removal    program.      For 
assemblies    of    planes    bounded    by    line    segments    and    visibility   determined 
by    point-to-point    examination,    the    time    required    to   draw  with    hidden 
lines    removed    is    from    100    to    1000    times    the    time    required    for    the    wire 
frame    drawing.      Appel   was    able    to   achieve    ratios    of    from    10    to    20  with 
his    method    of   quantitative    invisibility.      A  definite    ratio   cannot    be 
set    for    any   method    since    this    value    will   vary   with    the    complexity    of 
the   drawing   and    the    orientation    of   the    view.      The   method    of   Galimberti 
and  Montanari    [Ref.     18]    follows   Appel's   method  with   modifications,    and 
should   be    slightly    faster. 

4 .  Contour    Lines 

A  brief  discussion  of  contour  lines  is  presented  in  chapter  V. 
Morse  [Ref.  34]  gives  a  formal  mathematical  presentation  of  contour  lines 
and  suggests  that  as  methods  for  handling  contour  lines  are  developed, 
greater  usage  will  ensue  in  the  various  branches  of  engineering. 

5 .  Hidden-Line    Removal 

The    hidden-line    elemination    is    discussed    in   chapter   VI   using   a 
combination   of    the    methods    of   Galimberti   and   Montanari    [Ref.    It]    and 
Appel    [Ref.    2)   with   modifications   when   they  were    desirable.      The 
algorithm  and    implementation    is    discussed    in   this    chapter   with 
illustrations    for    various    cases    included. 

6 .  Summary 

A  summary  is  found  in  chapter  VIII  with  a  brief  discussion  on 
program  length  and  efficiency,  as  implemented  on  the  SDS  9300  and  the 
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IBM  360-67  located  at  the  Naval  Postgraduate  School.   Recommendations 
for  future  development  are  also  found  in  this  chapter. 
7  .   Appendixes 

Appendix  A  consists  of  a  Glossary  to  aid  the  reader  in  follow- 
ing terminology  and  conventions  developed  throughout  the  various 
c  hapters . 

Appendix  B  is  a  brief  summary  of  programming  changes  necessary 
between  the  FORTRAN  IV  of  the  SDS  9300  and  the  FORTRAN  IV  of  the  IBM 
360. 

Appendix  C  contains  instructions  for  the  use  of  the  program 
written  to  demonstrate  the  algorithms  developed. 
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II.   THREE-DIMENSIONAL  PERSPECTIVE  TRANSFORMATION 

For  the  transformation  of  three-dimensional  coordinates  into 
pseudo  3-D  coordinates,  both  digital  and  analog  techniques  have  been 
used .   The  algorithms  examined  in  this  treatment  of  the  subject  are 
applicable  to  either  or  both  methods  of  implementation.   The  general 
method  as  implemented  in  a  machine- inde pendent  higher-level  language 
is  examined  without  regard  to  hardware.   The  transformation  presented 
here  is  an  adaptation  and  an  extension  of  the  transformation  by  L.  G. 
Roberts  [Ref.  29]. 

The  desired  degrees  of  freedom  for  the  transformation  include  the 
rotation  of  the  object,  the  movement  of  the  object,  the  orientation  of 
the  viewing  plane,  and  the  movement  of  the  viewing  plane.   This  chapter 
will  discuss  the  basic  transformation  for  the  rotation  and  movement 
of  the  object.   The  following  chapter  will  extend  the  transformation 
to  include  the  movement  and  orientation  of  the  viewing  plane.   Motion 
of  the  viewing  plane  corresponds  to  motion  of  the  observer.   The  trans- 
formation will  utilize  homogeneous  coordinates. 

A.   THE  AXES 

There    are    three   different    right-hand    orthogonal   axes    involved    in 
the    presentation  which    follows.      These   axes   are    the    reference    axes, 
the    object    axes,    and    the    viewing-plane    axes.      A   brief   description    of 
each    of    the    sets    of   axes   will   help    in   understanding    the    chapter 
de ve lopment . 
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1 .  The  Reference  Axes 

All  movement  of  the  object  axes  and  the  viewing  plane  axes  is 

in  relation  to  a  set  of  reference  axes.   The  reference  axes  are  aligned 

with  the  object  axes  and  the  viewing  plane  axes  when  no  movement  or 

rotation  is  present  in  either  the  object  axes  or  the  viewing  plane  axes. 

The  reference  axes  are  labeled  X„  _ ,  Y„  .,  and  Z    .   Figure  1  shows 

Ref      Ref  Ref  & 

the    three    sets    of   axes    in   correspondence. 

2.  The    Object   Axes 

Consider  an  object  located  in  a  coordinate  frame  with  axes  u, 
v,  and  w.   Figure  2  shows  this  set  of  axes  by  itself,  along  with  the 
directions  of  positive  rotation. 

Each  object  or  group  of  objects  is  considered  as  if  it  had  its 
own  axes  about  which  it  must  be  rotated  and  which  will  hereafter  be 
called  the  object  axes  to  distinguish  them  from  those  of  other  co- 
ordinate systems.   The  order  of  rotation  is  important.   All  rotations 
are  obtained  by  rotating  two  of  the  object  axes  about  the  third  axis. 

Rotation  about  the  w  axis  is  first  and  is  measured  by  angle  a. 
Axis  u  rotated  into  axis  v  defines  the  positive  angle.   This  rotation  is 
measured  from  the  reference  axes.   Rotation  about  the  v  axis  is  second, 
and  this  is  measured  by  P.   The  positive  angle  is  defined  by  the  dir- 
ection of  w  rotated  into  u.   This  rotation  is  referenced  to  the  rotated 
object  axes.   Last,  rotation  of  v  into  w  (about  the  u  axis)  is  the 
positive  angle  y.      This  rotation  is  also  referenced  to  the  rotated 
object  axes.   These  angular  rotations  result  in  Euler  angles  similar 
to  those  described  by  Howe  [Ref.  50].   The  appropriate  direction  cosines 
are  listed  later  in  this  chapter. 
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FIGURE    1 
OBJECT  AXES,    VIEWING-PLANE  AXES,    AND   REFERENCE   AXES    IN  CORRESPONDENCE 
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FIGURE  2 
OBJECT  AXES  AND  POSITIVE  ROTATIONS 
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3 .      Viewing-Plane   Axes 

The    object    axes   must    now   be    placed    in   the    coordinate    system 
where    it   will   be    viewed.      This    coordinate    system  will   be    labeled    x,    y, 
and    z.      The    relationship   between   the    two   systems    is    shown    in   Figure    3, 
with    the    reference   axes    corresponding    in   this    case    to   the   viewing-plane 
axes  . 

The   viewing    plane    is    the    yz    plane   at    x   =   0,    with    limits    of  +    1 
in    both    y   and    z.      Translation    is   measured    in   xyz    coordinates    from   the 
xyz    origin    to    the    object    axes    origin.      The    translation   coordinates   will 
be    called   X^    Y^    and   Z^. 

The   viewer    looks    into    the    negative    x   half-space.      The    positive 
u   axis    extends    from   the    origin   of    the    object   axes    toward    the    viewer, 
when   no   rotation  and    no  Y   or   Z    translation    is    present. 

B.      PERSPECTIVE   TRANSFORMATION 

After    rotation  and    translation,    a    perspective    transformation    is 
made.      The    focal    point    is    located    on   the    positive   x  axis.      Roberts 
[Ref.    29 j    makes    a   comparison   to  a    camera   with    one    difference.      The 
focal    plane    in    this    case    is    between   the    focal    point   and    the    object. 
The    picture    is    square    in    this    case  ,   and    is   centered    on    the    axis   which 
also   contains    the    focal    point.      Figure    4   shows    a    basic    comparison. 
The    ratio    of    the    distance    between    the    focal    plane   and    the    focal    point 
to    the    distance    between   the    center   of    the    picture   and    one   edge    is 
approximately   3:1    or   4:1    for    the    standard    camera    lens    (i.e.    excluding 
telephoto   and   wide-angle    lenses).      For   a    telephoto   effect,    the    distance 
between    the    focal    point    and    the    focal    plane    must    be    increased.      Con- 
versely,   decreasing    the    distance    yields    a   wide-angle   effect. 
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FIGURE  3 
PLACEMENT  OF  OBJECT  AXES  IN  VIEWING  COORDINATE  SYSTEM 


FIGURE  4 
RELATIONSHIPS  OF  VIEWING  PLANE,  FOCAL  POINT  AND  OFFSETS 
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C.  OFFSET 

It  is  possible,  after  taking  a  picture,  to  enlarge  any  section  of 
it,  centered  anywhere  in  the  picture.  In  the  frame  of  reference  used 
here,  the  distance  from  the  center  of  the  total  picture  to  the  center 
of    the    enlarged    picture    is   measured   as    a    y-offset    and    z-offset,    called 

Y      and   Z    .      Figure    4   also   shows    the    offset    relationships. 

o      o 

D.  SCALE 

To  control  the  magnification,  another  factor  is  introduced.   This 
factor  is  called  the  scale.   Scale  is  the  normalized  distance  measured 
from  the  center  to  one  edge  of  the  picture.   For  a  full  size  picture, 
scale  is  equal  to  1/2.   When  an  offset  is  introduced,  scale  should  be 
decreased,  giving  an  enlargement  effect  for  that  section  of  the  picture. 
Standard  cameras  have  a  ratio  of  scale:focus  in  the  range  of  1:3  to  1:4. 

Another  way  of  looking  at  scale  gives  perhaps  a  better  understand- 
ing of  its  function.   The  limits  in  the  viewplane  were  set  at  +  1,  but 
when  the  limits  are  multiplied  by  scale  for  the  usual  case,  an  effective 
change  in  limits  occurs,  resulting  in  new  limits  of  +  0.5.   This  then 
gives  a  picture  of  a  normalized  size  of  1  from  top  to  bottom  or  from 
left  to  right.   The  corresponding  angle  for  a  focus  located  at  x  =  2 
is  +  14  degrees  vertically  and  horizontally  from  center. 

The  picture  will  always  fill  the  entire  focal  plane  area.   If  a 
value  of  1/4  is  chosen  for  scale,  the  result  will  be  that  the  center  of 
the  picture  is  enlarged  by  a  factor  of  two  to  fill  the  focal  plane  area. 

E.  ROTATION 

In  considering  the  rotation  of  the  object,  two  basic  choices  of 
rotation  are  possible.   The  choice  is  between  rotation  employing  Euler 
angles  and  rotation  about  fixed  axes. 
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1 .      Euler   Angles 

Euler   angles    are    employed   when   the    coordinate   axes    rotate   with 
the    object.      Angles    used    to   measure    yaw,    pitch,    and    roll    of  an   air- 
craft  are    an   example    of   Euler   angles.       Pitch,    for   example,    is   always 
measured    in    the    vertical    plane   which   contains    the    longitudinal   axis    of 
the    aircraft,    and    roll    is   measured   about    the    longitudinal   axis. 

Modification   of   coordinates    of   a    point    due    to   Euler   rotation 
can   be    found    by    the    matrix 


x  .    y  .    z  . 
l    J 1      1 


u.   v .   wj    :  \il  \i2  [i3  | 


L 


I   V        V        V 

L  1    2    3J 


where    (X.,    Y.,    Z.)    are    the   viewing    plane    coordinates, 

(u.,    v.,    w.)    are    the    object   axes    coordinates, 
ill 

and  (X,  [i,  v  )  are  the  directional  cosines  for  the  angle  that  the 
uvw  axes  make  with  the  xyz  axes.  Specifically,  the  direction  cosines 
are 


\1    =   cos    P    cos    a 

Xy   =  cos   p    sin  a 

A.~    =   -sin  3 

U1    =   -cos    7   sin  a  +  sin  7   sin  (3    cos   a 

u9   =  cos   a  cos   7  +  sin  7   sin  g    sin  a 

[_u   =  sin   7   cos   (? 

v      =   sin   7    sin  a  +  cos    7   sin  3    cos   a 

v      =   -sin   7    cos   a  +   cos    7   sin  P    sin  a 


v„    = 


„    =  cos    p   cos    7 
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2 .      Fixed-Axes    Rotation 

If   rotation   is    made    about    a    specified    inertial    or    reference 
axes,    the    rotation  will   be    of    the    fixed    type.      Consider    the    picture 
window   view   of   an    object.      If   rotation    is    always    made    in   reference    to 
the    picture   window,    the    axes    of   rotation    (the    picture   window  and    its 
perpendicular)    are    fixed. 

The    same   matrix   can   be    set    up    for    fixed-axes    rotation   using 
direction   cosines,    but    the    direction  cosines   will   be    different    in    this 
case.      The    direction   cosines    can   be    found   by   rotation   of  each   angle    in 
turn . 


rotation 


by 


rotation 


by 


rotation 


by 


a 

This    is    accomplished   by 

cos    a  sin  a  0  cos   P 

-sin   a  cos   a  0  0 

0        0       1      sin  g 
which  in  turn  simplifies  to 

\. 


0 

-sin  3 

1 

0 

0 

1 

0 

0 

cos   7 

sin  7 

0 

cos   3 

0 

-sin   y 

cos    7 

\n       X. 


Ui    Mo   U-. 


v,    v. 


12    3 

where  the  direction  cosines  are  now  defined  as 


A. .  =  cos  a  cos  8 


(3-9 

y 


[_u  =  cos  7  cos  a  -  sin  y   sin  3  sin  a 
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u_    =   sin    7   cos   a  +   cos    >(  sin   6)  sin   a 

3  v"  J 

v   =  sin  p 
v   =  -sin  %   cos  (3 
v   =  cos  7  cos  3 
3 .   Choice  of  Rotation 

Both  types  of  rotation  have  been  used  for  display.   It  was 
decided  that  for  display  of  the  object,  the  rotation  utilizing  Euler 

angles  would  be  the  easiest  to  visualize,  provided  that  the  axes  or 

i 

some  indication  of  the  axes  could  be  displayed. 

The  fixed  axes  rotation  is  also  needed  and  is  used  in  another 
context.   This  will  be  discussed  in  the  following  chapter. 

F.   HOMOGENEOUS  TRANSFORMATION  MATRIX 

By  utilizing  homogeneous  coordinates,  the  functions  of  rotation, 
translation,  perspective,  offset  and  scale  can  be  combined  into  one 
matrix.   To  accomplish  this  with  the  rotation  matrix,  a  fourth  co- 
ordinate is  added  to  the  three-coordinate  system  and  can  be  considered 
as  a  variable  scale  factor.   If  the  original  coordinates  are 

(X  Y  Z), 


the   new  coordinates   are 


where 


(XH  yH   2hV> 


XH  =  V 

Of   course    if  w     =    1,    then  x^   =  X,    y      =  Y,    and    z      =  Z.      The  factor  w 
H                                  H                    H                               H  rl 

may   be   any    positive    number,    and   can  handily   be   chosen   as    a  normalizing 
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factor   when    using    fixed-point    rather    than    floating-point    computers 


The    factor   w      can   be    changed    for   each    set    of   coordinates    defining   a 
H 

point    since    the    factor    cancels   when   converting    to    the    display   co- 
ordinates.     Therefore   when   using   a    normalizing    factor,    each    set    of 
coordinates    defining   a    point    can   be    individually    normalized.      For 
floating-point    operation,    the    factor    is    chosen   as    1.0    to   reduce    the 
operations    necessary. 

Modifying    the    rotation   matrix    for    the    homogeneous    system  yields 
the    following   4x4   matrix, 


h  X2 


Ul  a2 


1  2 

0  0 


X. 


lu 


0 


which  reduces  to  the  unit  matrix  if  no  rotation  is  present. 
The  translation  matrix  is  simply 
'■   w„    0    0    0~ 


H 


0 


w 


H 


0    0 


=  w 


H 


0     0    wu    0 
H 


V     z     w 
yT    T    H 


1 

0 

0 

0 

0 

1 

0 

0 

0 

0 

1 

0 

T. 

YT 

ZT 

1 

Premult iplying  the  translation  matrix  by  the  rotation  matrix  yields 


w. 


u1    u2 


XT    YT 


a. 
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The    perspective    transformation  matrix    is 
If       0       0        -1    ' 


=  F 


0        F        0  0 

OOF  0 

|    0        0        0  F 

where    F   is    the    distance    from   the  viewing    plane    (the   yz-plane   at    x 
to   the    focal    point. 


1 

0 

0 

F 

0 

1 

0 

0 

0 

0 

1 

0 

0 

0 

0 

L. 

=   0) 


The    offset   matrix   is 


0 
1 
0 
Y, 


0 

°i 

0 

1 


where  Y„  and  Z_  are  the  new  centers  of  the  picture 


The  scale  matrix  is  simply 


0 

0 

! 

o 
s 


where  S  is  the  measure  scale. 

Combining  all  the  functions  into  one  matrix,  thus 

[ROTATION]  [TRANSLATION]  [PERSPECTIVE]  [OFFSET]  [SCALE] 
yields  the  H  transformation  matrix,  where 


H   =  wF 


|X1 
>1 


L5 


VW/F     VW/F 


■sap/F 


u2"V^l)/F  U3"Z0(U1)/F  "S^/F 

WV/F     vW/F     -s(v/F 

VWF)/F    VWF)/F    -s(xt"f)/f 
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When  a  point  is  to  be  transformed,  it  must  be  expressed  in  homo- 
geneous coordinates.   Thus  the  point  (X.  Y.  Z.)  becomes  (x.  y.  z.  w„) . 

111  111H 

The    transformation    is    then  made    by    post-multiplying    the    point   matrix   by 
the   H    transformation   matrix.      Thus, 

[»!  yx  »!  «„]  LHJ  =  Lxi'  *i   *i  V. 

where  the  primes  now  denote  the  complete  perspective  transformation. 

G.   DISPLAY  COORDINATES 

To  obtain  the  display  coordinates,  division  of  the  homogeneous 

transformed  coordinates  must  be  made  by  the  w  '  coordinate.   Thus, 

H 

v  -  w 
v  -w 

where  Y1 '  is  the  horizontal  displacement  and  Z. '  is  the  vertical  dis- 
placement.  The  coordinate  x  '  is  an  indication  of  depth  and  can  be 
used  for  depth  cues. 

Since  the  factor  w  F  appears  in  every  homogeneous  transformed  co- 

H 

ordinate,  it  will  eventually  be  cancelled  in  arriving  at  display 

coordinates.   There  is  no  change  if  the  factor  is  set  to  1.0  in  these 

transformations,  and  computing  time  can  be  reduced  by  eliminating 
several  operations. 
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III.   MOVEMENT  OF  THE  VIEWING  PLANE 

Previously,  movement  of  the  object  axes  utilizing  both  rotation  and 
translation  was  accomplished.   Related  to  the  movement  of  the  object 
axes  is  the  movement  of  the  viewing  plane  to  some  arbitrary  point  and 
the  orientation  of  the  viewing  plane  to  some  arbitrary  direction.   The 
movement  of  the  viewing-plane  axes  corresponds  to  motion  of  an  observer. 
An  aircraft  flying  around  a  fixed  object  and  viewing  the  object  from  the 
various  sides  is  an  example  of  this  capability. 

It  can  be  seen  that  the  two  situations  can  be  thought  of  as  the 
same,  but  with  a  change  in  reference.   One  might  argue  that  there  is 
really  no  difference  and  therefore  unworthy  of  consideration  as  a 
separate  problem.   However,  if  one  considers  that  possibly  both  the 
object  and  the  viewing  plane  could  move,  a  much  larger  set  of  appli- 
cations is  possible. 

Consider  again  the  aircraft  as  an  example.   This  time  let  the  air- 
craft fly  around  an  aircraft  carrier.   The  carrier  has  motion  about 
each  of  its  three  object  (ship's)  axes.   The  aircraft,  which  contains 
the  viewing  plane,  is  moving  about  some  inertia  1  reference.   The  view- 
ing plane  therefore  is  moving  in  respect  to  a  stationary  point  in  some 
inertial  frame. 

A.   THE  HOMOGENEOUS  MATRIX 

Implementation  of  the  movement  in  each  of  the  three  dimensions  can 
be  easily  accomplished  by  retaining  and  expanding  the  previously 
developed  matrices. 
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For    illustrative    purposes,   write    the   matrix   transformation  already 
derived   as 


\      \      \      0  10      0      0 


1   0   0    -- 


10      0      0 


Ulu2M30  0      100        [010        0  0100 

v      V2V3°  0010  001        0  0   0      10 

oooi       xT  yt  zT  i       ooo      i     ;oy0zqi. 


10  0  0 
0  10  0 
0  0  10 
0  0  0  s 


Combining    the    last    three    matrices    yields 

Xl  X2  X3    ^        1      0      0      6~"     "l    -Y   /F    -Z    /F    -S/F 


H   = 


l±l  yx2   u3    0  0      1      0      0    '       0  1  0 


v     v     v      0  0     0      10  0  0 


0      0      0      1        j XT   YT   ZT    1 


0 


Y        Z 
0        0 


It    is    now   necessary    to   have    agreement    on  whether    the    translation   of   the 
viewing    plane    or    the    orientation   of    the    viewing    plane   comes    first. 
Translating   the   viewing    plane    to   some    point   and    them   orienting    it    in 
the   direction   desired  was    considered    to  be    easier    to   visualize    than 
first    orienting    the    view-plane   and    then   translating    it.      The    order    of 
rotation  when   re-orienting    the    view-plane   must   also   be    specified.      The 
same    convention   that   was    established  with    the    object    axes   will   be    used 
with    the   viewing    plane   axes.      Rotation    (yaw)    about    the   z    axis    is    there- 
fore  measured    first    by   the    angle    PSI.      Pitch   about    the    y   axis    is    mea- 
sured   next    by    the    angle   THETA.      Roll   about    the    x  axis    is    measured    last 
by    the    angle    PHI. 

B.   TRANSLATION  OF  THE  VIEWING  PLANE 

Translation  of  the  viewing  plane  is  really  the  same  as  a  negative 
translation  by  the  same  amount  of  the  object  axes.   Let  the  object  axes 
translation  from  the  reference  axes  be 
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X    Y    Z 
OB   OB   OB 


and  let  the  viewing  plane  translation  from  the  reference  axes  be 

v   y   Z 
VP  VP  VP* 

Let  the  resultant  translation  be 

XT   YT   V 
Then 


i   1  0  0  0 

0  1  0  0 

{ 

I  0  0  1  0 


H  =     S   Rotation 
;   Trans- 
formation 


Xnn   Ynn   Znn    1 

OB      OB      OB        ! 


Object-Axes 
Trans lation 


1          0 

0 

o- 

Perspective 

0          1 
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Offset 
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0          0 
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Trans- 
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Trans lation 

H  = 


Rotation 
Trans- 
formation 


10  0  0 
0  10  0 
0      0      10 


Perspective 

Offset 

Scale 

Transformation 


J 


Xm  Ym  Zm  1 
|_T  T  T 


where  the  resultant  translation  (X  Y  Z  )  is 

XT  =  XOB'XVP 

Y   =  Y   -Y 
T    OB  VP 

7=7   _7 

T    OB  VP' 

Let  a  point  being  transformed  be  represented  by  the  vector  P,  where 

?  =  [*H  yH  ZH  V  * 
Then 

r-i  r 

Rotation 


ft 
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results    in    the    coordinates    of    the    points    after    rotation,    expressed    in 
viewing-plane    coordinate    values    (corresponding    to    the    reference    plane 
since    the    viewing    plane    has    not    yet    been  moved).      Call    the    resultant    P' 
Then    translating   both    the    object    axes    and    the    viewing-plane   axes 

'      1 


P' 

L    J 


Trans  lation1 
Object   Axes! 


ITrans  lationj 
IView-Plane    ' 


Axes  j 

results    in    the    coordinates    of   the    point   after   rotation   and    translation 
of   both    the    object    axes    and    the    viewing-plane   axes,    expressed   again    in 
the    new  viewing-plane    coordinates.      Call   this    resultant    P'1.      At    this 
point,    of   course,    the    reference    axes    and    the   viewing-plane   axes    no 
longer   correspond. 


C.      ORIENTATION  OF   THE   VIEW- PLANE 

Re-orientation    of   the   view-plane   at    this    point    can   be    looked    upon 
as    a    rotation   of  a    new   object   axes,    say  u'    v'    w1.      These    new   object 
axes    correspond    to    the   viewing-plane   axes    before    rotation   and    the    co- 
ordinates   P' '    which   were    found    in   the    previous    steps.       If    the    axes    did 
not   correspond   at    this    point,    it   would   be    necessary   to   evaluate    new 
translations   brought   about   by   the   reorientation   of   the   viewing   plane. 
In   this    example    however,    the   axes   were   made    to   correspond. 

Rotation   of   the   axes    now   is    a   simple   matter.      Rotation   of    the    axes 


is    the    negative    of   the    viewing-plane    rotation.      However,    the    rotation 
of    the    object   axes    in    this    context   must    be    around   a    fixed   set    of   axes, 
the    fixed   axes    corresponding   to   the   axes    of   the   viewing   plane.      If 
rotation   utilizing   Euler   angles   were    used,    the    second    rotation  would 
be    about    the    rotated    object    axes    instead    of    the    new   viewing-plane    axes 
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After   multiplying   by   the    fixed   angle    rotation  matrix   using    the    nega 
t ive    of   the    orientation  angles,    the    rotation-translation-orientation 
solution    is    complete.      For    the    perspective   view,    multiplication   by   the 
combined    perspective-offset -sea le    matrix   completes    the    transformation. 

D.      SUMMARY 

It    has    been   shown    that    translation  and   viewing-plane    orientation 
can   be   accomplished    in   one    matrix   transformation,    namely, 


H   = 


nL  x2  x3  <n 


j  ^1  U2  U3   ° 
I  Vj   v2   v3   0 

XT  YT  ZT    1 


Object   Axes 
Rotation 
(Euler 
angles) 
Trans lation 
Viewing   Plane 
Translation 


Xl  X2  X3   ° 

ML  H2  M3   ° 

Vl  V2   V3   ° 
0      0      0      1 


1    -Y   /F    -Z   /F    -S/F] 
0  10  0 

0  0  10 


0     Yo     zo 


Viewing   Plane  Transformation 

Orientation  Perspective 

(fixed  Offset 

axes  Scale 

rotation) 


In   implementing    this,    the    first    rotation  matrix  and   both    trans- 
lation matrices   are   combined.      The   result   is    post-multiplied   by   the 
viewing-plane    orientation  matrix.      The   result    is   modified   to   reflect 
the   scale   and   perspective    transformations   and   if  offsets   are    present, 
that   modification   is    also  made.      The    result   remains   a   4   x  4  matrix   that 
can   be   used    to   transform  all   the    points    to  be   displayed   and    that    need 
be    calculated    only   once    for   each   view  desired. 
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IV.   DATA  STRUCTURE 

The  type  of  data  structure  to  be  used  in  any  given  graphics  program 
is  greatly  dependent  on  the  purpose  and  nature  of  the  program.   The 
complexity  can  vary  greatly  due  to  the  variety  of  applications.   Three- 
dimensional  data  structures  will  necessarily  be  more  complicated  than 
two-dimensional  data  structures.   A  graphics  program  that  will  be 
modified  on-line  requires  a  higher  degree  of  complexity  than  one  which 
makes  no  provision  for  change. 

A  brief  look  into  a  few  techniques  adaptable  to  problems  of  in- 
creasing complexity  will  be  described  in  this  chapter.   There  are  of 
course  many  ways  of  structuring  data,  and  the  following  methods  are 
merely  an  illustration  of  some  of  the  characteristics  and  properties 
associated  with  data  structures. 

A.   BASIC  STRUCTURES 

The  two  requirements  in  storing  data  are  generally  contradictory. 
Data  should  be  rapidly  available  but  at  the  same  time  it  should  be 
efficiently  stored  since  memory  is  usually  limited.   The  structures 
used  in  this  section  are  not  meant  to  be  an  exhaustive  list  of  possi- 
bilities, but  are  rather  illustrations  of  where  one  might  begin  in  a 
search  for  a  structure  suitable  to  a  specific  problem. 

1 .   Structuring  for  Points  Only 

The  simplest  of  all  data  structures  is  that  represented  as  an 
array  of  planar  points.   Consider  the  points  in  Figure  5  making  up  the 
letter  'A'.   By  using  enough  points,  the  'A'  may  be  made  to  appear  to 
be  composed  of  lines.   Considerable  memory  is  required  in  this  type 
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FIGURE  5 
EXAMPLES  OF  DIFFERING  DATA  STRUCTURE  REQUIREMENTS 
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of  storage,  due  to  the  large  number  of  points  needed  as  the  picture 
becomes  more  complicated.   Each  point  requires  two  coordinates. 

The  points  could  be  stored  as  fixed  point  numbers  unless  the  loss 
in  resolution  is  unacceptable,  such  as  in  the  case  of  magnification  of 

details.   A  24-bit  computer  word  can  yield  a  resolution  of  one  part  in 

23 
2   ,  assuming  signed  numbers  and  the  full  computer  word  are  being  used. 

12 

Since  present  display  devices  give  at  best  one  part  in  2    and  many  yield 

only  one  part  in  2   ,  packing  these  point  coordinates  into  one  word  is 
possible  for  further  memory  saving.   These  techniques  can  be  used  to 
advantage  in  assembly  language  programming,  but  are  of  limited  use  in 
FORTRAN  IV. 

2.  Structuring  for  Connected  Lines 

Increasing  the  complexity  by  one  step,  the  figure  '0'  of  Figure 
5  is  drawn.   This  figure  is  composed  of  connected  straight-line  segments. 
The  points  can  be  stored  again  as  in  the  previous  case,  but  now  a  line 
is  drawn  to  each  succeeding  point.   The  line  is  continuous,  although 
broken,  and  therefore  no  other  special  information  is  necessary. 

3 .  Structuring  for  Line  Segments 

Going  next  to  the  'A'  made  up  of  line  segments,  a  higher-order 
storage  problem  is  encountered.   Now  the  figure  is  not  made  up  of  just 
one  connected  line  ,  but  rather  a  connected  broken  line  and  a  line  seg- 
ment,  or  more  simply  just  three  line  segments.   Now  it  is  necessary  to 
note  the  line  segments  as  well  as  the  points  making  up  the  line  seg- 
ments.  If  just  the  points  are  stored,  there  is  no  way  of  knowing  how 
these  points  should  be  connected  for  display.   If  just  the  lines  are 
stored,  the  end  points  are  undefined.   If  the  lines  are  stored  listing 
the  endpoints,  there  is  unnecessary  repetition  of  the  same  points.   It 
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is  necessary  therefore  to  store  a  block  containing  the  points  and 
another  block  that  defines  the  lines  that  exist  between  designated 
points.   Figure  6  shows  a  structure  for  the  'A',  with  the  points  num- 
bered for  clarification.   Although  the  line  end  points  can  be  referred 
to  by  their  value  or  location,  storage  location  was  used  in  this  example 
since  this  gives  more  flexibility  and  points  are  not  entered  redundantly 
The  line  list  of  Figure  6  contains  the  identification  number  of  the 
points  used  to  draw  the  'A'.   The  points  are  defined  in  the  point  list. 
To  display  the  figure,  the  line  list  is  traversed,  moving  from  line  1 
to  line  3.   Line  1  is  drawn  between  points  1  and  2  by  referring  to  the 
point  coordinates  in  the  point  list. 
POINT  LIST 
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FIGURE   6 
DATA  STRUCTURE   FOR  THE    LINE    'A' 
4.      Structuring    for   Simple   Three-Dimensional   Figures 

In   the   two-dimensional   case,    storage    in   the    line    list   of   the 
actual    points    is    probably   preferred,    making    for   a    simpler   structure. 
On   the    other   hand,    as    the    third   dimension   is    introduced,    it    is    prefer- 
able   to  define    the    lines   by   the    location   of   storage    of   the    point   coordi- 
nates.     This    is    so   simply   because    the    three-dimensional   conversion    is 
done    on   the    points.      To   keep    from  converting    the    same    point    several    times 
because    it    is   stored    in  different    locations,    it    is   desirable    to  make   all 
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references  to  the  point  by  location.   For  example,  in  Figure  7  each  end 
point  is  a  member  of  three  lines.   In  the  three-dimensional  case  it 
is  not  desirable  to  fit  the  three  coordinates  into  one  word  (by  packing) 
because  the  resolution  would  be  severely  limited  —  in  the  case  of  a  24-bit 
computer  word  the  resolution  for  the  packed  case  would  be  1  out  of  2  ,  or 
little  better  than  1  out  of  100.   Any  calculations  that  are  to  be  made  on 
the  coordinates  would  degrade  the  accuracy  further  due  to  round-off  error, 
Additionally,  the  coordinates  would  have  to  be  unpacked  for  each  opera- 
tion or  series  of  operations  and  then  returned  to  the  packed  mode. 
Therefore  three-dimensional  data  must  be  stored  using  more  than  one 
memory  location.   The  display  points  after  conversion  could  be  packed 
for  display  and  stored  as  before  since  only  two  coordinates  are  displayed 
in  the  pseudo  3-D  presentation. 
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FIGURE  7 

WIRE-FRAME  RECTANGULAR  BLOCK 

The  converted  points  could  of  course  be  stored  in  the  place  of 

the  original  points,  but  the  original  data  is  then  lost.   To  draw  the 

wire  model  of  the  block,  the  line  list  can  be  followed,  with  each  line 

drawn  as  in  the  previous  case . 
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5.   Increased  Complexity 



Now  consider  the  same  rectangular  block  made  up  of  six  plane 
surfaces  limited  by  their  intersections.   It  now  becomes  necessary  to 
identify  the  surfaces.   The  method  chosen  here  is  to  describe  each  plane 
surface  by  a  series  of  points,  ordered  so  that  the  outside  surface  is 
to  the  left  of  the  path  described  by  the  series  of  defining  points.   If 
the  surface  is  not  closed,  this  also  must  be  noted.   (For  example,  if 
the  rectangular  block  were  an  open  box,  the  object  is  not  closed.) 

Now  there  is  a  list  for  points,  a  list  for  lines,  and  a  list 
for  polygons  defining  limits  of  plane  surfaces.   Each  line  is  a  member 
of  two  surfaces  and  it  is  undesirable  to  draw  the  same  line  more  than 
once.   Some  of  the  lines  are  hidden  from  view  so  that  it  becomes 
necessary  to  indicate  which  lines  can  be  seen  and  which  cannot. 
Additional  information  is  therefore  required.   Examples  of  the  pro- 
posed structure  are  shown  in  Figures  8-11.   With  the  proposed  structure, 
it  is  necessary  for  the  display  points  to  be  stored  by  association  with 
the  points  from  which  they  were  derived.   Otherwise,  reconstruction  for 
display  of  the  figure  would  be  impossible. 

The  point  data  block  of  Figure  8  contains  the  uvw  coordinates 
describing  the  object  in  three  dimensions  using  the  object's  own 
coordinate  system.   Also  contained  in  this  block  is  the  depth  coordinate 
after  transformation  and  the  horizontal  and  vertical  coordinates  for 
display  of  the  points.   The  number  of  lines  to  which  the  point  belongs 
is  stored  in  the  first  integer  cell.   Only  three  pointers  are  used  in 
the  data  block,  indicating  to  which  lines  the  point  belongs.   The  num- 
ber of  lines  entering  and  exiting  a  point  generally  does  not  exceed 
three.   There  is,  of  course,  the  possibility  of  additional  lines 
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FIGURE  8 
POINT  LIST  DATA  ARRAY 
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terminating  at  a  point,  and  in  this  case  another  point  block  is  used,  as 
though  the  point  were  split. 

The  structure  array  block  shown  in  Figure  9  varies  with  type  of 
structure  described.   The  structure  shown  is  for  a  polygon  defining  the 
limits  of  a  plane  surface.   The  direction  cosines  of  the  inward-pointing 
normal  are  computed  and  stored.   There  are  then  eight  pointers,  each 
pointing  to  a  line  that  defines  the  polygon.   The  type  of  structure  (in 
this  case  a  polygon)  is  coded  by  number  in  the  second  integer  cell.   The 
first  integer  cell  contains  the  number  of  parts  contained  (the  number  of 
lines  for  a  polygon)  and  thus  is  available  as  a  pointer  when  entering 
data.   If  the  number  of  parts  exceeds  the  capacity,  a  second  block  is 
used.   This  method  of  storing  data  dictates  that  the  next  block  is  to 
be  used  for  continuation  (i.e.  i  +  1  is  the  continuation  of  i) ,  and  the 
indication  that  a  continuation  does  exist  is  made  by  placing  a  number 
larger  than  the  capacity  in  the  first  integer  cell.   In  the  block  i  +  1, 
a  different  type  (code)  number  is  assigned,  indicating  that  this  is  a 
continuation  of  the  previous  block. 

Figure  10  shows  the  block  storage  as  it  is  allocated  by  physical 
location  by  the  FORTRAN  IV  compiler.   Since  the  first  subscript  varies 
first,  the  entire  block,  N  by  8  in  size,  makes  up  the  point  list  at  the 
low  end  of  the  allocated  storage.   This  is  followed  by  an  N  by  2  block 
containing  the  line  list.   The  structure  list  follows  with  another  N  by 
8  block.   Each  division  of  Figure  10  represents  N  locations  for  real 
numbers.   To  split  a  location  of  a  real  number  into  two  integer 
locations  so  that  pointers  can  be  inserted  and  read,  the  EQUIVALENCE 
statement  is  used.   The  integer  array  is  dimensioned  (2,N,18),  where 
the  length  of  the  integer  must  be  specified  to  be  one-half  the  length 
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ARRANGEMENTS  OF  STORAGE  LOCATIONS 
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of   the    real   number.      The    EQUIVALENCE   statement    sets    (1,1,1)    of    the    integer 
array   equal    to    (1,1)    of    the    real-number   array.      Thus    each   real-number 
location   can   also   be    referenced    by   a    pair    of    integer    locations.      This    can 
be    depicted   as    two    integer   cells    packed    into   one    real-number    cell. 

ARRAY  (I, J) 
;  INTEGER  ARRAY  (1,1, J)        INTEGER  ARRAY  (2,I,J)j 

Another  convenient  way  to  visualize  the  structure  is  shown  in 
Figure  11.   Here  the  structure  is  depicted  as  a  matrix  dimensioned  N  by 
18.   The  first  eight  columns  make  up  the  point  list.   The  next  two  columns 
make  up  the  line  list  and  the  last  eight  columns  make  up  the  structure 
list.   Some  columns  are  divided  as  explained  above  to  utilize  space  more 
effectively.   The  row  number  N  is  the  "name"  of  the  point,  line,  or 
structure  in  that  row. 

No  provision  has  been  made  here  for  linking  various  structures 
together.   It  is  assumed  that  in  displaying  the  image,  the  structure 
blocks  will  be  traversed  in  order  until  all  the  blocks  utilized  have 
been  traversed.   If  data  is  to  be  added  or  subtracted  on-line  from  the 
basic  structure,  additional  pointers  would  be  necessary,  pointing  both 
forward  and  backward  so  that  elements  can  be  added  or  removed.   In 
addition,  it  becomes  necessary  to  employ  an  identification  scheme  so 
that  if  lines  are  members  of  arrays  no  longer  used,  they  can  be  checked 
to  see  if  they  are  used  in  some  other  array,  and  if  not,  they  can  be 
e liminated . 

B.   STRUCTURE  FOR  HIDDEN- LINE  REMOVAL 

If  the  object  which  is  to  be  described  is  allowed  to  have  concave 
dihedrals  (where  intersecting  plane  surfaces  form  inclusive  angles 
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FIGURE  11 
MATRIX  INTERPRETATION  OF  DATA  STRUCTURE 
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external  of  the  object  of  less  than  180  ),  additional  information  is 
needed.   This  section  will  discuss  how  the  description  of  the  object 
and  developed  information  is  stored  in  association  with  nodes  (points), 
faces  (surfaces),  and  edges  (lines).   The  utilization  and  development  of 
the  stored  information  will  be  discussed  in  chapter  VI. 

The  implementation  of  the  three-dimensional  structure  for  the  dis- 
play of  objects  with  concave  and  convex  dihedrals  and  the  elimination 
of  their  hidden  lines  is  somewhat  similar  to  that  described  in  the  last 
section.   Some  data  was  reorganized,  some  was  dropped,  and  some  was 
added.   The  result  is  a  modified  structure  which  contains  the  elements 
required  by  Galimberti  and  Montanari  [Ref.  18]  in  their  paper  on  the 
solution  to  the  hidden-line  problem. 

It  was  desired  that  the  dimensioning  requirements  for  a  user  be 
kept  to  a  minimum.   Therefore  one  large  array  is  used  which  contains 
several  line  lists,  a  node  (point)  list,  and  a  polygon  list.   Two 
integer  cells  are  again  equivalent  to  one  real-number  cell. 

1 .   Node  (Point)  Information 

The  basic  structure  must  always  rest  on  the  individual  nodes. 
The  remaining  stored  data  must  provide  the  information  necessary  to 
connect  the  nodes  for  the  display  of  the  desired  picture. 

An  N  x  6  array  was  used  for  the  node  uvw  coordinates  in  real 
space  (referenced  to  the  object  axes)  and  for  the  depth,  horizontal, 
and  vertical  coordinates  in  display  space.   The  first  six  locations 
(columns)  were  used  so  that  the  conversion  subroutine  could  be  pro- 
grammed to  transform  the  first  three  locations  and  store  the  result  in 
the  second  three  locations. 
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Also  associated  with  the  node  is  information  concerning  the  set 
of  faces  hiding  that  node  and  whether  or  not  a  node  is  an  endpoint  of  a 
concave  dihedral.   The  convex/concave  determination  is  made  and  the 
result  is  entered  in  the  first  integer  cell  of  the  seventh  position  in 
the  array. 

In  the  thirteenth  position  of  the  array,  the  number  of  on-view 
faces  hiding  the  associated  node  is  placed  in  the  first  integer  cell 
and  a  pointer  to  the  first  such  face  for  each  node  is  placed  in  the 
second  integer  cell.   The  pointer  indicates  a  starting  position  in  a 
single -subscript  list  that  contains  the  blocking  faces  for  all  nodes, 
entered  as  they  are  encountered.   Figure  12  summarizes  the  information 
for  the  nodes. 

2 .   Faces  (Surface  or  Polygon)  Information 

The  eighth  position  in  the  array  is  divided  into  two  integer 
locations.   The  first  integer  cell  contains  the  number  of  points  (nodes) 
defining  the  face  and  the  second  contains  a  pointer  to  the  starting  point 
in  a  list  of  nodes.   If  a  face  is  hidden  by  its  own  volume,  the  first 
integer  cell  is  marked  with  a  negative  sign. 

Also  associated  with  the  faces  are  the  inward-pointing  normals. 
These  are  computed  and  stored  in  the  fourteenth  to  sixteenth  position 
of  the  array.   The  normals  are  used  to  compute  concave  surfaces,  and 
when  that  computation  is  completed,  the  normals  are  no  longer  needed. 
The  storage  space  for  the  normals  then  becomes  a  temporary  storage  area 
during  the  examination  of  segments  for  the  elimination  of  hidden  lines. 

The  list  of  defining  nodes  is  a  single-subscript  array  contain- 
ing the  nodes  (by  'name')  in  the  order  in  which  they  are  entered.   Figure 
13  summarizes  the  information  for  faces. 
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3 .   Edge  (Line  or  Segment)  Information 

The  remaining  locations  from  nine  through  twelve  are  used  for 
information  concerning  lines.   Locations  nine  and  ten  form  one  list, 
with  ten  following  sequentially  after  all  room  is  taken  in  nine. 
Location  eleven  and  twelve  form  a  similar  list.   Both  lists  are  made 
up  of  two  integer  cells  at  each  real-number  location.   The  first  list 
contains  the  starting  and  end  point  numbers  (names)  of  the  edge.   The 
second  list  contains  the  two  faces  that  join  to  make  the  edge. 

The  edge  information  is  ordered  in  these  lists.   The  lower- 
numbered  (named)  node  is  always  stored  in  the  first  cell  and  the  face 
with  which  the  orientation  corresponds  is  entered  in  the  first  cell  of 
its  list. 

A  negative  sign  is  used  to  mark  the  first  node  in  the  ninth 
location  to  indicate  that  the  segment  is  hidden  (and  that  the  segment 
is  'erased').   The  second  integer  cell  is  marked  to  indicate  whether 
the  segment  has  been  examined.   The  first  integer  location  in  the 
eleventh  position  is  marked  for  concave  lines. 

Unused  space  in  both  line  lists  is  used  for  temporary  storage 
when  determining  intersections  and  when  determining  the  nature  of  a 
point  (i.e.  the  set  of  faces  that  hide  that  point).   Figure  14  sum- 
marizes the  structure  for  lines.   An  application  example  may  be  found 
in  the  chapter  on  hidden-line  removal. 

C.   APPLICATION  DEPENDENCE 

It  should  be  remembered  at  this  point  that  the  structures  herein 
discussed  are  FORTRAN  IV  oriented.   Further  packing  of  information  and 
pointers  would  be  possible  by  resorting  to  the  assembly  language  for  a 
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given  computer.   Reduction  to  machine -oriented  programming  can  introduce 
efficiencies  in  many  areas  at  the  expense  of  machine  independence. 

Many  structures  have  been  proposed.   The  usual  discussion  of 
structures  however  is  machine-oriented  or  in  a  higher-level  language 
than  FORTRAN.   Most  discussion  in  data  structuring  deals  with  the  two- 
dimensional  case.   Little  has  been  done  in  FORTRAN  because  of  its 
inefficiencies  and  inherent  disadvantages  when  compared  to  other 
languages.   A  number  of  references  dealing  with  structures  may  be 
found  in  the  Bibliography.   The  requirements  for  efficient  storage 
and  rapid  access  are  contradictory  and  trade-offs  must  be  made,  dictated 
in  part  by  the  application  and  the  computer  to  be  used. 
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V.   CONTOUR  LINES 

Contour  lines  find  use  in  many  fields.   As  techniques  are  developed 
for  working  with  contour  lines,  a  greater  variety  of  applications  will 
appear.   In  engineering  applications,  contour  lines  could  be  used  when 
working  with  field  problems  such  as 

lines  of  equipotentia 1 , 

lines  of  constant  pressure, 

lines  of  equal  acoustic  intensity, 
and  lines  of  equal  radiated  power  intensity. 

This  discussion  of  contour  lines  will  discuss  a  few  of  the  funda- 
mental concepts  that  could  be  applied  in  a  graphics  program.   The 
subject  is  worthy  of  study  by  itself  and  thus  a  complete  treatment  is 
beyond  the  scope  of  this  presentation.   The  Bibliography  contains  a 
number  of  references  that  deal  with  contour  lines. 

Specifically,  the  aspect  of  contour  lines  of  immediate  interest  is 
the  method  of  handling  them  so  that  they  may  be  displayed  in  perspective 
A  function  of  two  variables  usually  describes  a  surface.   Many  problems 
could  be  solved  on  sight  if  the  right  picture  could  be  obtained  of  that 
surface.   Two  steps  are  required.   First  the  contour  lines  must  be 
obtained  and  second  the  desired  picture  must  be  constructed. 

A.   DEFINITIONS 

One  definition  of  a  contour  as  given  in  the  dictionary  is  "an 
outline".   The  contour  lines  will  be  used  to  construct  an  outline  of 
an  object  or  surface.   Contour  lines  are  normally  defined  as  the  lines 
of  intersection  between  a  given  surface  and  a  family  of  parallel 
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surfaces  (usually  horizontal  planes).   S.  P.  Morse  [Ref.  34]  points  out 
that  this  definition  is  ambiguous  if  the  given  surface  has  a  portion 
parallel  to  the  parallel  surfaces.   For  this  reason,  Morse  defines 
positive  and  negative  contour  lines.   Since  contour  lines  in  topography 
are  most  easily  visualized,  the  following  definition  will  be  given  in 
that  reference.   The  positive  contour  line  is  a  line  connecting  points 
all  of  the  same  elevation  such  that  points  adjacent  to  one  side  of  the 
line  are  at  a  higher  elevation  and  points  adjacent  to  the  other  side 
are  at  the  same  or  lower  elevation.   The  negative  contour  line  is  a 
line  connecting  points  all  of  the  same  elevation  such  that  points 
adjacent  to  one  side  are  at  a  lower  elevation  and  points  adjacent  to 
the  other  side  are  at  the  same  or  higher  elevation.   The  usual  contour 
line  on  a  map  is  generally  a  union  of  these  two.   Obviously  there  must 
be  yet  another  kind  of  contour  line  to  satisfy  the  cases  of  maxima  and 
minima  (peaks  and  valleys).   These  are  called  degenerate  contour  lines 
as  opposed  to  the  normal  contour  lines.   Specifically  they  are  called 
maximum  and  minimum  contour  lines.   The  positive  direction  of  a  normal 
contour  line  is  such  that  the  points  of  higher  elevation  are  on  the  left 
hand  side  and  points  of  lower  elevation  are  on  the  right-hand  side  as 
the  contour  line  is  traversed  in  its  positive  direction. 

B.   ENCODING  CONTOUR  LINES 

For  storage  in  a  computer,  a  contour  line  can  be  represented  by  an 
encoded  string.  A  rectangular  grid  system  proposed  by  H.  Freeman  [Ref. 
14,  15]  is  a  simple  method  of  relating  each  point  from  previous  points. 
A  rectangular  grid  overlay  is  placed  on  a  contour  map.  The  curved  con- 
tour line  is  then  quantized  to  discrete  values  by  assigning  the  closest 
node  as  the  discrete  contour  point.   To  move  from  a  reference  point  R 
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in  Figure  15  to  the  next  point,  one  of  eight  allowed  directions  must  be 
taken.   Each  direction  is  assigned  an  octal  integer.   Each  odd  number 
represents  a  movement  of  1.414  units  at  an  odd  multiple  of  45  degrees. 
Each  even  number  and  zero  represents  a  movement  of  1.0  units  at  an  even 
multiple  of  45  degrees.   The  agreement  between  quantized  values  and  the 
actual  value  on  the  contour  line  is  a  function  of  the  grid  spacing.   See 
Figure  16  for  an  example  of  an  encoded  string. 
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FIGURE  15 
FREEMAN'S  RECTANGULAR  GRID 

The  grid  size  can  be  adjusted  to  yield  the  resolution  required. 
B.  W.  Boehm  [Ref.  5]  suggests  that  a  variable-size  reference  grid  might 
be  more  appropriate.   Thus,  when  little  change  in  a  surface  occurs,  a 
relatively  large  grid  could  be  used.   When  the  surface  changes  rapidly 
the  grid  size  can  be  reduced  so  that  details  can  be  seen. 

A  contour  encoded  with  a  small  grid  size  can  be  converted  to  a 
larger  grid  size  by  "integrating"  a  number  of  encoded  digits.   The 
number  of  digits  thus  integrated  determines  the  new  grid  size.   This 
would  be  helpful  in  seeing  the  large  scale  view  but  would  maintain  the 
detail  for  the  close-up  views  (i.e.  by  retaining  the  original  grid  in 
computer  storage). 
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Besides  the  encoded  string,  each  contour  line  must  have  associated 
with  it  the  two-dimensional  coordinates  of  the  first  point  and  the 
elevation  of  the  contour  line. 


Coded  String 
120177111 
Reference  Node 


Discrete  Curve 
Values 


FIGURE  16 
ENCODED  STRING 

C.   OBTAINING  CONTOUR  LINES 

Topographical  contour  lines  are  available  on  contour  maps.   In  the 
engineering  field,  the  data  must  be  gathered  (as  of  course  it  must 
originally  have  been  done  for  topographical  contour  lines)  and  the  con- 
tours constructed.   Data  can  be  gathered  with  regular,  ordered  samples 
or  by  random  samples.   Often  no  choice  is  possible.   In  the  case  of  a 
surface  which  is  a  function  of  two  variables,  the  data  can  be  spaced  at 
regular  intervals.   The  intervals  can  also  be  varied  for  additional 
detail  where  the  surface  varies  rapidly.   Data  obtained  from  weather 
observations  may  take  on  the  characteristics  of  random  sampling.   In 
any  case  the  data  should  be  collected  with  the  realization  that  it  will 
be  used  to  draw  contour  lines.   If  the  horizontal  space  for  which  the 
contour  lines  are  to  be  drawn  is  divided  into  a  grid  of  size  appropriate 
for  the  resolution  desired,  and  the  values  of  the  horizontal  planes  are 
quantized  at  appropriate  levels,  the  contours  should  become  evident  when 
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the  data  is  taken  (or  estimated,  based  on  observations  available).   A 
contour  line  passing  through  a  node  must  cross  at  or  near  one  of  the 
adjacent  nodes  unless  the  contour  line  does  not  extend  beyond  the 
immediate  region  of  the  first  node. 

D.   DISPIAY  OF  CONTOURS 

Once  the  contour  lines  have  been  obtained,  selected  points  can  be 
converted  for  perspective  display  of  the  lines.   The  obvious  points  to 
use  are  those  points  corresponding  to  the  grid  nodes. 

The  "cardboard  cutout"  type  of  display  would  be  the  simplest  to 
obtain.   In  this  type  of  display,  the  outline  of  the  object  is  obtained 
and  displayed  as  if  the  object  were  a  flat  surface  perpendicular  to  the 
line  of  sight.   To  accomplish  this,  it  is  necessary  to  sense  the  left  and 
right  limits  of  visibility  (from  the  observer's  viewpoint)  of  each  con- 
tour line  and  then  connect  all  the  left  extremities  and  all  the  right 
extremities  within  a  family  of  curves. 

1.   Determination  of  Limits  of  Visibility 

The  determination  of  the  left  and  right  visibility-limiting 
points  can  be  done  by  maximizing  and  minimizing  the  tangent  function 
of  the  angle  between  the  y  axis  of  the  viewing  plane  and  a  given  con- 
tour curve.   Figure  17  shows  six  possible  cases. 

Only  those  contour  points  that  show  negative  depth  coordinates 
need  be  examined.   All  positive  depth  coordinates  are  behind  the  view- 
ing plane.   In  both  quadrants  in  front  of  the  viewing  plane,  a  minimum 
tangent  function  occurs  at  the  left  edge  and  a  maximum  tangent  function 
occurs  at  the  right  edge.   These  are  arithmetic  maxima  and  minima.   The 
only  difference  in  the  two  quadrants  is  that  in  the  left-hand  quadrant 


58 


depth 

-y- 

depth 


n1 


max 


min 


,n 


ma: 


mm 


III 


VI 


+y 


FIGURE  17 
CONTOUR  LINES  EXAMINED  FOR  LEFT  AND  RIGHT  EXTREMES 
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the  sign  of  the  tangent  function  is  positive  whereas  in  the  right-hand 

quadrant  the  sign  of  the  tangent  function  is  negative. 

The  actual  angle  need  not  be  found.   The  magnitude  of  the  tanget 

function  is  easily  evaluated  by  using  the  origin  of  the  viewing  plane 

and  the  point  on  the  contour  line  evaluated  in  the  same  coordinate 

system.   The  coordinates  of  a  point  located  on  a  contour  line  are 

u   v  w 
c   c   c 

and    the    combined   movement    of   the    object   axes    and   viewing-plane   axes 

results  in  the  quantities 

XT  YT  ZT 
and  previously  defined  in  chapter  III,  i.e. 

XT  =  X0B    "   XVP 

Y      =  Y        -   Y 
T  OB  VP 

7=7  _     7 

T  OB  VP' 

Only   two   dimensions    need   be    used   at    this    point,   with    the   angle   Q  defined 
as    the   angle    that   a   half-plane    coincident  with   the    positive   y  axis   and 
the   yz    plane    sweeps   about    the    z    axis    to   reach    the    contour    line   extremity, 

Thus, 

u  +  X,,, 

c T 

tan  0  = 

c    T 
and  the  point  where  this  is  a  maximum  arithmetic  value  is  a  right 
extremity.   The  point  where  this  is  a  minimum  arithmetic  value  is  a 
left  extremity.   Note  that  (u  +  X  )  will  be  negative  for  points  in 
front  of  the  viewing  plane. 

A  treatment  of  the  general  case  of  the  elimination  of  hidden 
lines  for  two  dimensions  is  detailed  in  an  article  by  H.  Freeman  and 
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P.  P.  Loutrel  [Ref.  17].   Such  an  elaborate  procedure  was  not  desired 
in  this  case.   This  is  a  method  of  improving  detail,  but  of  course  costly 
in  computing  time  and  storage. 
2 .   Var iat ions 

A  more  complete  picture  can  be  obtained  by  also  displaying 
those  parts  of  the  contour  lines  that  lie  in  front  of  the  limits  of 
visibility  (and  are  not  hidden  by  other  surfaces).   The  price  of 
additional  detail  is  again  additional  computation  time  and  more  memory 
storage  requirements. 

The  method  of  hidden-line  elimination  discussed  in  the  follow- 
ing chapter  can  be  applied  to  the  outlines  derived.   The  hidden-line 
elimination  is  applicable  to  objects  drawn  with  plane  surfaces.   There- 
fore it  is  necessary  to  assume  the  cardboard-cutout  type  of  display  for 
at  least  that  part  of  the  program  that  eliminates  the  hidden  lines.   The 
three  points  defining  a  plane  must  be  chosen  very  carefully  however, 
since  different  combinations  of  left  and  right  limit  points  will 
generally  define  different  planes. 

E.   FURTHER  STUDY 

As  three-dimensional  capabilities  are  expanded,  the  use  of  contour 
lines  in  a  wide  variety  of  problems  will  begin  to  look  more  attractive. 
Morse  points  out  that  there  are  many  problems  which  might  be  effectively 
solved  by  using  contour  maps  to  represent  the  data  if  techniques  for 
processing  contour  maps  were  more  fully  developed  [Ref.  34]. 
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VI.      HIDDEN- LINE    REMOVAL 

One    of    the   major    problems    in    three-dimensional   display  work   has 
been   the    removal   of   hidden    lines.      A   simple    two-dimensional    procedure 
was    discussed    in    the    section   on   contour    lines.      Generally,    methods    that 
have    been   used   have    been    limited    in  application.      Some    solutions   apply 
only    to   convex   polyhedra.      In   order    to    process    a    large   vocabulary   of 
solids,    point-visibility   schemes    employing   "brute    force"  methods   were 
used.      The    cost    of   such   methods   was    a   very    large   computation   time. 

The   method   applied    in   this    study  uses    ideas   and   concepts    from 
reports   by  A.   Appel    [Ref.    2]    and   R.    Galimberti   and   U.    Montanari    [Ref. 
18].      Appropriate   modifications   were   made    to   shorten   computation   time 
wherever    possible.      This   method    is   applicable    to  convex  and   concave 
plane-faced    objects.      The   number   of   objects    is    not    limited    (except   by 
total   storage   availability),    but   all   objects   must   be   described    in  a 
single   coordinate   system. 

A.      THE   PREVIOUS   REPORTS 

The    two   previous    reports   used  as   a   basis    for   this    treatment    of   the 
hidden-line    problem  defined    some    concepts    for    the    first    time.      In  his 
report,   Appel  gave   a   general  solution   to   the   hidden-line    problem   for 
a    large   vocabulary   of   objects.      Appel's   method  reduced   the   computation 
time    from   previous    methods    by  an   order   of   magnitude.      Galimberti   and 
Montanari    presented   the    solution   of    the    hidden    line    problem    for   either 
convex   or   concave    plane-faced    objects.      Some    of  Appel's    concepts   were 
used   by   Galimberti   and   Montanari.      The    computation   time   was    further 
reduced   but    at    the    expense    of   some    generality. 
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1 .  Quantitative  Invisibility 

Appel's  analysis  of  the  picture  parts  was  done  in  three- 
dimensions,  and  can  be  extended  to  curved  surfaces  as  well  as  plane 
surfaces.  The  concept  of  quantitative  invisibility  was  introduced  by 
Appel  to  determine  which  lines  or  parts  of  a  line  were  to  be  drawn. 
Quantitative  invisibility  is  concerned  only  with  a  count  of  the  number 
of  surfaces  hiding  a  point.   For  those  portions  of  a  curve  where  the 
count  is  zero,  the  curve  is  drawn.   When  the  count  is  other  than  zero, 
the  curve  is  being  hidden  by  a  surface  or  surfaces  between  the  curve 
and  the  observer  and  the  curve  is  not  drawn.   Appel  introduced  the 
concept  of  implied  vorticity  and  suggested  a  method  for  determining 
whether  a  point  lies  interior  or  exterior  to  a  bounded  surface.   Both 
of  these  concepts  are  employed  in  this  solution  to  the  hidden-line 
problem  and  will  be  explained  in  a  later  section. 

2 .  Invisibility  by  Sets 

Galimberti  and  Montanari  extended  Appel's  method  by  making  use 
of  the  projected  lines  and  points  and  extending  the  concept  of  quanti- 
tative invisibility  to  become  the  concept  of  qualitative  invisibility. 
Instead  of  the  number  of  surfaces  hiding  a  point,  Galimberti  and 
Montanari  used  the  idea  of  an  identified  set  of  surfaces  hiding  that 
point.   Their  application  was  limited  to  convex  and  concave  plane- 
surfaced  objects.   Any  disadvantage  introduced  by  the  requirement  that 
the  object  be  described  in  this  form  was  offset  by  the  relative  speed 
with  which  the  calculation  was  made.   Galimberti  and  Montanari  outlined 
their  algorithm  very  well.   This  study  follows  their  algorithm  in  a 
general  way,  with  many  modifications. 
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B.   DEFINITIONS 

The  many  concepts  that  will  be  discussed  are  at  times  difficult  to 
visualize.   Even  greater  confusion  arises  when  the  same  word  is  applied 
to  mean  two  different  things.   A  clear  distinction  must  be  made  between 
names  in  two  dimensions  and  names  in  three  dimensions.   The  terms  defined 
here  will  be  used  throughout  the  remainder  of  the  chapter. 

An  object  is  assumed  to  be  made  up  of  faces  which  are  bounded  por- 
tions of  plane  surfaces.   The  intersecting  faces  form  a  concave  dihedral 
if  the  included  angle  (measured  external  of  the  object)  between  the  two 
intersecting  faces  is  less  than  180  .   Faces  are  bounded  by  edges,  where 
an  edge  is  the  intersection  of  two  planes.   The  end  points  of  an  edge 
are  called  nodes.   An  edge  is  convex  or  concave,  corresponding  to  the 
dihedral  of  the  faces  which  define  the  edge.   A  node  is  concave  if  it 
belongs  to  at  least  one  concave  edge.   Projection  on  a  picture  plane 
yields  polygons  for  faces,  segments  for  edges,  and  vertices  for  nodes. 
A  point  is  a  general  term  and  is  used  in  both  two  and  three  dimensions. 
Both  edges  and  segments  are  composed  of  a  series  of  points.   Nodes  and 
vertices  are  special  points. 

Two  segments  cross  at  an  intersection.   A  segment  that  intersects 
a  second  segment  is  said  to  be  winning  if  the  first  corresponding  edge 
crosses  in  front  of  the  second  corresponding  edge.   The  second  segment 
is  said  to  be  losing.   Thus  the  intersection  is  a  winning  intersection 
for  the  first  segment  and  a  losing  intersection  for  the  second  segment. 

The  nature  of  a  point  is  the  set  of  faces  in  three  dimensions  which 
block  that  point  from  view.   To  find  the  nature  of  a  vertex,  the  corres- 
ponding node  must  be  checked  for  any  intervening  faces.   The  set  of 


64 


intervening  faces  is  the  nature  of  the  vertex  (and  the  node) .   When  the 
nature  equals  the  null  set  the  point  is  in  view. 

C.   SPECIAL  TESTS 

Various  special  tests  were  developed  to  be  used  with  this  program. 
Many  of  these  tests  have  uses  beyond  the  immediate  applications  in  this 
solution  to  the  hidden-line  problem.   In  each  case  the  tests  have  been 
reduced  to  a  minimum  of  programming  in  an  attempt  to  minimize  time  and 
computer  memory. 

1 .   Implied  Vorticity 

If  it  is  desired  to  determine  whether  two  points  are  on  the  same 
or  different  sides  of  a  line,  a  test  for  implied  vorticity  can  be  made. 
Refer  to  Figure  18.   The  sense  of  rotation  about  A  in  going  from  P..  to 
P_  is  counter-clockwise,  but  the  sense  of  rotation  about  B  is  clockwise. 
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FIGURE  18 
IMPLIED  VORTICITY 
The  area  of  a  triangle  bounded  by  three  points  can  be  found  by 
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where  a,  b,  and  c  are  the  direction  cosines  of  a  line  perpendicular  to 

the  plane  of  the  triangle  determined  by  the  points  P.,  P.,  and  P. , 1 . 
K  r       0    l       r+1 

The  sign  is  a  function  of  the  direction  of  rotation  about  P  .   The 
actual  sign  is  not  of  consequence  for  the  applied  purpose,  but  a 
change  in  sign  in  testing  two  points  indicates  a  change  from  one  side 
of  the  line  to  the  other.   The  area  is  of  no  concern  for  this  application 
and  therefore  the  direction  cosine  is  not  needed.   The  equation  as  used 
for  testing  is  used  in  the  two  dimensional  case  and  reduces  to  the  form 
AH  =  X0YL  +  X2YQ  +  XLY2  -  X2YX  -  X^  -  X^ 

where  AH  is  an  indicator  and 

(X_  Y  )  are  the  coordinates  of  the  point  under  test,  and 


(Xx  Y,) 
(X2  Y2) j 


are  the  coordinates  of  the  end  points  of  the  line 


This  can  be  modified  to 


where 


AH  =  XQYL  +  X2YQ  -  XLY0  -  XQY2  +  C 


C  -  XjY2  -  X2YL 


This  was  implemented  as  a  function  statement  for  rapid  evaluation. 

When  applying  the  test,  obviously  two  points  must  be  evaluated 
or  the  test  is  meaningless.   The  point  being  tested  is  always  (X  Y  ) 
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and  is  being  tested  in  respect  to  the  line  with  end  points  (X  Y1 ) 
and  (X  Y2). 

To  test  for  an  intersection  of  two  lines,  the  test  for  implied 
vorticity  must  be  applied  twice.   First  each  of  the  end  points  of  one 
segment  must  be  tested  with  respect  to  the  end  points  of  a  second  seg- 
ment.  If  no  change  in  sign  occurs,  implied  vorticity  is  the  same  for 
both  points  and  there  can  be  no  intersection.   If  there  is  a  change  in 
sign,  each  of  the  end  points  of  the  second  segment  must  be  tested  in 
respect  to  the  end  points  of  the  first  line.   Again,  no  change  in  sign 
indicates  no  intersection  is  possible.   A  change  in  sign  in  both  tests 
indicates  that  there  is  an  intersection  within  the  segment  lengths. 

In  the  example  of  Figure  19,  it  is  desired  to  test  lines  L  ,  L  , 

and  L.  for  intersection  with  line  Ln .   Point  C  is  tested  with  respect  to 
4  1 

line  L..  (points  A  and  B).   Point  D  is  then  tested  with  respect  to  line 
L,  .   The  signs  of  the  two  results  are  compared  and  in  this  case  the 
signs  are  the  same  (either  both  positive  or  both  negative).   This  indi- 
cates that  no  intersection  can  occur  between  these  two  lines.   The 
actual  polarity  of  the  sign  is  determined  by  the  direction  in  which  line 
L  is  traversed  between  points  A  and  B. 
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FIGURE  19 
TESTING  A  LINE  FOR  INTERSECTION 
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Next,  points  E  and  F  are  each  checked  with  respect  to  line  L 


1 


This  time  a  change  in  sign  occurs  since  the  implied  vorticity  is  counter- 
clockwise for  E  and  clockwise  for  F  when  the  direction  in  line  L   is  from 
A  to  B.   Now  the  possibility  of  an  intersection  exists,  but  when  the  test 
is  applied  to  points  A  and  B  in  respect  to  line  L„  it  is  seen  that  no 
intersection  is  possible. 

Last,  points  G  and  H  are  tested  with  respect  to  line  L  and  it 
is  again  seen  that  the  possibility  of  an  intersection  occurs.   Testing 
A  and  B  in  respect  to  line  L,  completes  the  test  and  an  intersection  is 
indicated  since  the  sign  changed  in  both  applications  of  the  test. 

Several  special  cases  arise  when  one  or  both  points  are  col- 
linear  with  the  line  being  tested.   Figure  20  and  the  following  examples 
explain  the  special  cases  that  can  develop. 
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FIGURE  20 
INTERSECTION  SPECIAL  CASES 
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In  the  first  example,  segments  L  and  L~  belong  to  the  same  line, 
but  the  segments  do  not  meet.   In  this  case,  the  application  of  the  vor- 
ticitv  test  to  either  end  point  of  one  segment  in  respect  to  the  other 
segment  results  in  a  zero  (since  the  area  of  the  triangle  is  zero).   The 
same  condition  exists  for  L„  and  L , ,  except  that  now  there  is  an  inter- 
section.  In  the  case  of  lines  L„  and  L ,  ,  two  intersections  are  assumed, 
one  at  G  and  one  at  F  (or  at  the  end  points  of  the  common  segment).   If 
G  and  F  coincide,  only  one  intersection  is  assumed.   In  both  of  these 
examples  the  implied  vorticity  test  fails  to  provide  the  desired  infor- 
mation and  a  special  test  was  developed. 

When  the  result  of  the  implied  vorticity  is  sensed  to  be  zero 
(or  close  to  zero),  a  separate  test  is  used.   If  the  lines  are  not 
vertical,  the  x  components  of  the  vertices  are  used  in  the  test. 

Let 

~i 

R  =  minimum  |  maximum  (XA  ,  X„),  maximum  (X„ ,  X  )  I 
L  A'   B  '  C'   D  J 

,—  - 

L  =  maximum  I  minimum  (X  ,  X  ),  minimum  (X  ,  X  )  . 
L  A    B  CD- 

Then  R  -  L  will  result  in 

1)  a  negative  number  if  there  is  no  intersection 

2)  zero  if  the  intersection  is  at  one  common  end  point 

3)  a  positive  number  if  there  is  a  common  segment 
Applying  the  test  in  the  case  of  the  line  L..  and  the  line  L~  , 


it  can  be  seen  that 

R  =  minimum  I  Y    Y   I  =  \ 


R  =  minimum  I  X^ ,  X   =  X. 


L  =  maximum  X  ,  X   =  X 


and 


(R  -  L)  =  X   -  X   =  a  negative  number,  hence  no  intersection, 
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For  lines  L  and  L ,  , 

R  =  min  ^max  (X£ ,  Xp)  ,  max  (XG,  XR)^ 
L  =  max  j^min  (XE ,  Xp) ,  min  (XG ,  X  )J 

and 

(R  -  L)  =  X   -  X  =  a  positive  number,  hence  the  segments  must 
over  Lap . 

If  X   =  X  ,  the  lines  intersect  at  a  common  end  point  and  the  result 
of  R  -  L  is  zero.   If  the  lines  are  vertical,  the  same  test  is  applied 
with  the  Y  coordinate  in  place  of  the  X  coordinate. 

The  remaining  two  special  cases  occur  when  only  one  of  the  end 

points  is  collinear  with  the  other  segment.   Two  different  situations 

are  shown  in  Figure  20.   Lines  L,.  and  L,  show  no  intersection  and  lines 

L  and  L  show  an  intersection.   Of  course  if  points  I  and  J  are  tested 
/        o 

with  respect  to  line  L , ,  it  can  be  seen  immediately  that  there  is  no 
intersection.   But  if  points  K  and  L  were  tested  with  respect  to  line 
Iv  first,  an  intersection  may  or  may  not  be  indicated,  depending  on  the 
sign  of  the  very  small  number  resulting  from  testing  K  in  respect  to 
line  L  .   Although  this  small  number  should  be  zero,  round-off  errors 
in  conversion  would  probably  cause  it  to  be  other  than  zero  (although 
extremely  small).   Each  result  of  the  vorticity  test  is  therefore 
checked  for  the  small  magnitude  that  would  result  from  one  end  point 
being  collinear.   In  this  program  only  losing  intersections  are  noted 
since  only  the  losing  intersections  cause  changes  in  qualitative 
invisibility. 

2 .   Exterior  -  Interior  Determination 

The  principle  of  this  test  was  also  suggested  by  Appel.   If  a 
line  is  drawn  from  the  point  being  tested  to  a  point  exterior  of  the 
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boundary,  the  number  of  crossings  must  be  an  odd  number  if  the  point  is 
interior  to  the  boundary  or  an  even  number  if  the  point  is  exterior  to 
the  boundary. 

Applying  this  test  to  the  three-dimensional  problem,  the  pro- 
jection of  a  face  onto  the  picture  plane  yields  a  closed  boundary  (a 
polygon).   If  some  point  (usually  a  node)  is  projected  onto  the  picture 
plane  also,  and  a  line  is  drawn  from  that  point  to  a  point  that  is  known 
to  be  exterior  to  the  polygon,  the  number  of  crossings  of  the  polygon 
will  reveal  whether  the  projected  point  is  inside  or  outside  the  polygon, 
If  the  projected  point  is  inside  the  polygon,  the  point  is  either  in 
front  of  or  in  back  of  the  face  corresponding  to  the  polygon.   A  depth 
test  to  determine  which  is  closer  to  the  observer  will  resolve  the 
ambiguity.   If  the  projected  point  is  exterior  to  the  polygon,  the 
corresponding  face  cannot  be  hiding  that  point. 

Figure  21  contains  a  polygon  P1 P_P„P, P^P, P7  with  a  hole  in  it. 
The  hole  is  bounded  by  P  P   P   P   .   Point  A  lies  inside  the  bounded 
area.   If  a  line  is  drawn  from  A  to  any  point  outside  of  the  polygon, 
an  odd  number  of  crossings  of  the  boundary  will  occur  (either  1  or  3). 
For  point  B,  the  number  of  crossings  will  be  even  (or  zero).   In  this 
example  if  the  known  exterior  point  is  beyond  the  limits  of  the  polygon 
P     (i.e.  not  in  the  hole),  the  number  of  crossings  will  be  two.   From 
point  C  the  number  of  crossings  will  be  zero,  two  or  four,  depending  on 
the  direction  in  which  the  line  is  drawn. 

To  reach  a  point  exterior  to  the  polygon,  a  half-line  segment 
is  assumed  to  be  drawn  vertically  from  the  projected  point.  All  seg- 
ments are  then  checked  for  intersection  with  this  vertical  half-line. 
The  faces  defining  the  edges  that  correspond  to  the  crossed  lines  are 
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marked.   When  all  segments  have  been  checked,  those  faces  which  have  been 
marked  an  even  number  of  times  cannot  be  hiding  the  point.   Those  faces 
marked  an  odd  number  of  times  are  further  checked  for  depth  to  determine 
which  faces  block  that  point. 


A 


12 1 


■i 


T'p. 


FIGURE  21 
INTERIOR-EXTERIOR  DETERMINATION 
3.   Intersection  of  a  Plane  and  a  Line  (PIERC) 

A  subroutine  was  developed  to  provide  the  coordinates  of  the 
intersection  of  a  plane  specified  by  three  points  and  a  line  specified 
by  two  points.   This  test  is  necessary  to  determine  where  a  line  con- 
necting the  observer  and  a  point  under  test  passes  through  a  surface. 
If  the  intersection  is  further  away  than  the  point,  the  point  is  in 
front  of  the  surface. 

The  subprogram  was  developed  from  the  basic  equations  of  a  line 
and  a  plane.   The  equation  for  a  plane  specified  by  three  points  is 


X  "  Xl    y  "  yl    Z  "  Zl 


X2  "  Xl   y2  "  yl   Z2  "  Zl 
x3  -  xL   y3  -  yx      z3    -  zL 


=  0 
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The  parametric  form  of  the  line  equation  is 


x'  =  x!  +  ta 


where 


y\    +  tb 


z'  =  zf   +   be 


1 

b  =  y'2  -  y[ 


c  "  z2  "  zl 


and  t  is  the  parmeter  and  the  primes  denote  the  coordinates  of  the 
points  defining  the  line. 

Expanding  the  equation  for  the  plane  and  arranging  terms 

(x    -   xt)l  (y2    "   y].)(z3    "    z]}    "    (z2    "    zl^y3    "   ylK 

+   (y   "   yi)[(z2    ~   zl^x3    "   xp    "    ^x2    "   xi^z3    "   z{)_ 

+  (z  -  z1)[(x2  -  x1)(y3  -  y{>  -  (y2  -  ^i^x3  '  xi)j  =  °' 

Let 

a  =  (y2  -  y1)(z3  -  zx)  -  (z2  -  zi)^3  *  yp 

B  =    (z2    -   z^x     -   x1)    -    (x2    -   xx)(z3    -   zL) 

c  =  (x2  -  xL)(y3  -  yL)  -  (y2  -  yx)(x3  "  x{> 

D   =    -   Ax      -   By,    -   Cz 

Then 

Ax  +  By  +  Cz  +  D  =  0, 
where  A,  B,  and  C  are  the  direction  numbers  of  a  normal  to  the  plane 
To  find  the  intersection  of  the  plane  and  the  line,  substitute  the 
expressions  for  x,  y,  and  z  defining  the  line  into  the  equation  for 
the  plane. 
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A(x!   +   ta)   +   B(y'   +   tb)   +  C(z]   +   tc)   +  D  =   0. 

Solve    for    the    parameter    t. 

Ax'    +   ByJ  +  Cz*   +  D 
fc     =      -    (Aa  +  Bb  +  Cc) 

The  coordinates  of  the  intersection  then  are 

x  =  x'  +  ta 

y  =  y[  +  tb 

z  =  zj  +  tc 
This  test  is  implemented  in  the  subroutine  PIERC  (pierce).   A, 
B,  C,  and  D  are  found  as  above  using  the  three  points  defining  the 
plane.   The  direction  numbers  of  the  line  are  then  found.   Combining 
these  results  allows  the  value  of  the  parameter  t  to  be  found.   The 
value  of  the  parameter  t  is  then  used  in  the  parametric  line  equation 
to  find  the  intersection  of  the  line  and  the  plane.   The  entire  process 
is  coded  into  only  eleven  FORTRAN  statements  consisting  of  29  addition/ 
subtractions,  19  multiplications,  and  one  division.   The  determination 
of  the  intersection  of  the  plane  and  the  line  can  thus  be  made  very 
quickly . 

D.   ALGORITHMS 

Although  some  portions  of  the  program  are  not  directly  concerned  with 
the  hidden-line  removal,  there  is  an  interacting  influence  between  the 
hidden-line  removal  problem  and  the  remainder  of  the  program.   The 
greatest  influence  is  exerted  through  the  storage  of  data  and  the 
associated  requirements. 

This  section  will  explain  the  algorithms  used  in  the  various  pro- 
gram parts.  The  first  section  will  introduce  a  general  program  which 
could  be  used  to  generate  a  picture  with  hidden  lines  removed.   Various 
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subprograms  are  called.   These  subprograms  will  be  further  explained 
immediately  following  the  introduction  of  the  general  program. 
1 .   General  Program 

Flowchart  1  provides  an  overall  view  of  the  complete  program. 
Dimension  requirements  are  explained  in  Appendix  C.   Subroutine  DESCRB 
is  an  initializing  routine  that  resets  all  pointers  and  flags  and  clears 
certain  portions  of  the  array  structure.   Subroutine  FACES  enters  that 
data  for  one  face  each  time  it  is  called.   LINES  connects  the  points 
which  were  entered  to  form  the  structure  in  storage.   CCVCVX  identifies 
all  of  the  concave  dihedrals.   At  this  point  the  structure  within  the 
computer  is  complete.   As  many  views  as  desired  may  be  made  by  continuing 
on  from  A. 

When  developing  the  picture,  it  is  necessary  to  set  the  angles 
and  positions  of  the  object  and  the  observer  before  calling  C0NV3D.   If 
these  variables  are  not  set  the  previous  values  will  be  used,  or  if  this 
is  the  first  view,  all  angles  will  be  set  to  zero.   All  positions  will 
be  zero,  except  the  object  will  be  moved  40  units  away  from  the  focal 
plane,  enabling  the  object  to  be  seen.   C0NV3D  converts  the  stored  co- 
ordinates of  each  point  to  coordinates  for  horizontal  and  vertical  dis- 
play, and  a  depth  coordinate  which  is  associated  with  each  point. 
Additionally  the  position  of  the  focal  plane  center  and  two  additional 
points  in  the  focal  plane  are  calculated  in  terms  of  the  object's  co- 
ordinate system.   The  position  of  the  center  of  the  focal  plane  is  used 
when  determining  the  coordinates  of  the  intersection  of  the  line  of  sight 
and  a  plane.   This  is  used  in  subroutines  VRTNTR  and  TSTNNP  which  are 
called  by  CMPUT.   The  three  points  in  the  focal  plane  are  used  to  deter- 
mine the  coordinates  of  the  intersection  at  the  focal  plane  of  a  line 
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passing  through  the  focal  plane.   This  information  is  used  in  subroutine 
ALTER. 

Some  lines  of  a  drawing  will  be  hidden  by  the  object's  own 
volume.   HDNSRF  determines  which  surfaces  are  facing  away  from  the 
observer  and  interprets  this  information  to  determine  which  lines  are 
hidden  by  the  object's  own  volume. 

Subroutine  ALTER  will  modify  the  line  structure  by  terminating 
all  lines  passing  through  the  focal  plane  and  assigning  new  end  points 
which  lie  in  the  focal  plane  to  replace  those  end  points  which  lie  behind 
the  observer.   This  is  necessary  due  to  the  inverted  image  which  is 
formed  after  passing  through  the  focal  point  (similar  to  the  image  being 
inverted  in  a  camera). 

Each  on-view  line  is  then  examined  in  subroutine  CMPUT  to  deter- 
mine which  portions  of  the  line  are  visible.   This  subroutine  also  calls 
the  subroutines  VRTNTR,  TSTNNP,  LNTRSC ,  WINDOW,  and  other  routines  of  a 
more  general  nature.   These  subroutines  will  be  discussed  in  the  section 
explaining  the  algorithm  for  CMPUT. 

At  the  completion  of  CMPUT,  the  picture  has  been  "developed" 
and  exists  in  the  form  of  a  list  of  starting  point  coordinates  and  end 
point  coordinates  for  each  visible  line  normalized  to  +  1.   The  user 
must  define  the  output  to  be  used  and  must  process  the  line  list  for 
any  changes  required  from  the  normalized  +  1  and  the  output  device.   Two 
routines  which  are  included  in  the  demonstration  program  that  accomplish 
this  are  DRAWVP  and  DRAWIT . 

DRAWVP  converts  the  line  list  to  an  output  for  the  line  printer. 
Up  to  ten  symbols  will  be  printed  for  each  line.   The  picture  will  be 
distorted  due  to  the  constraint  of  printing  only  at  discrete  points, 
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but  offers  the  advantage  of  obtaining  an  immediate  result  which  can  be 
used  to  guide  modifications  to  data  describing  the  object.   This  routine 
loses  its  effect  as  the  picture  becomes  more  complicated.   DRAWVP  re- 
quires that  subroutine  VPLOT  be  furnished  (see  Appendix  C  for  information 
on  VPLOT) . 

DRAWIT  is  a  subprogram  developed  to  draw  the  output  picture  on 
the  CALCOMP  Plotter  using  the  line  list  developed.   DRAWIT  utilizes  the 
locally  developed  plotting  package.   (See  Appendix  C  for  further  infor- 
mation on  this  subroutine  and  the  plotting  package.) 

When  the  picture  is  completed,  additional  views  may  be  desired. 
To  obtain  another  view,  subroutine  ERASE  is  called  to  reset  flags  and 
pointers  and  to  restore  the  line  structure  if  it  has  been  altered.   The 
program  is  entered  at  the  point  of  setting  any  new  angles  or  positions 
or  of  setting  new  values  of  focal  length  (focus),  offsets,  or  scale. 
If  for  example  it  was  desired  to  magnify  the  picture  by  two  with  no 
other  changes,  scale  would  be  reset  to  1/4  (assuming  it  had  been  1/2) 
and  all  other  values  left  as  already  set.   This  means  the  normalized 
distance  from  the  center  to  an  edge  of  the  picture  is  now  1/4  and  this 
portion  of  the  picture  will  be  expanded  to  fill  the  "picture  frame". 
This  corresponds  to  enlarging  a  portion  of  the  picture  already  made. 
For  a  telephoto  effect,  only  the  focal  length  would  be  changed  (by 
increasing  the  value  of  the  focus).   This  corresponds  to  using  a  tele- 
photo  lens  in  a  camera.   Although  the  results  are  similar,  the  two 
cases  originate  differently.   In  a  camera  the  enlargement  process  is 
limited  by  the  grain  of  the  film  but  in  the  computer  drawn  picture  the 
resolution  is  determined  by  the  resolution  used  in  the  object  description. 
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A  main  real  array  and  an  integer  array  occupy  the  same  block 
of  memory.   Two  integer  words  must  equal  one  real  word  and  this  is 
assumed  in  the  following  discussion.   EQUIVALENCE  statements  required 
are  defined  in  Appendix  C. 

2 .   FACES  (Subroutine  for  Entering  Data) 

The  objects  to  be  displayed  are  entered  through  the  use  of  a 
subroutine  called  FACES.  The  objects  to  be  entered  must  be  described 
by  bounded  plane  surfaces.  The  boundaries  of  the  plane  surfaces  are 
defined  by  a  number  of  points  with  straight  lines  connecting  those 
points.  The  first  point  and  last  point  of  any  such  surface  boundary 
are  assumed  to  be  connected.  The  first  point  must  be  a  corner  point 
for  reasons  explained  in  CCVCVX. 

For  each  face,  the  first  input  is  the  number  of  points  that  are 
to  follow.   Then  the  three  coordinates  of  each  point  are  read  until  the 
specified  number  of  points  has  been  entered.   As  each  point  is  read,  it 
is  compared  to  points  already  entered  and  if  it  is  already  present,  an 
identifier  n.  (a  number)  is  assigned  to  that  point  and  the  coordinates 
of  that  point  are  stored  in  the  (n.,J)  position  of  the  main  array  (where 
J  =  1,  2,  3).   A  list  (LSTFAC)  of  the  points  in  the  order  that  they  are 
entered  is  kept  separately.   The  number  of  points  entered  for  the  face 
is  stored  in  the  main  integer  array  at  (l,n   ,8)  where  i_f  is  the  number 
of  the  face  being  entered.   A  pointer  to  the  start  of  the  defining 
points  in  LSTFAC  is  stored  in  the  array  at  (2,n   ,8).   Flowchart  2 
summarizes  the  algorithm  for  FACES.   The  subroutine  must  be  called  as 
many  times  as  there  are  faces  to  be  entered  since  only  one  face  is 
entered  by  a  single  call.   This  subroutine  may  be  called  at  any  time 
that  a  face  (or  faces)  is  to  be  added  to  the  existing  structure,  but 
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after  the  new  face(s)  has  been  entered,  the  subroutines  LINES  and 
CCVCVX  must  be  called  before  proceeding  with  the  development  of  the 
p ic ture . 

3 .   Connecting  the  Defining  Points  (LINES) 

After  the  defining  points  have  been  entered,  the  points  are 
connected  by  the  subroutine  LINES.   Each  point  is  to  be  connected  by 
a  straight  line  segment  to  the  next  point  until  all  of  the  points  for 
the  face  are  used.   The  last  point  is  then  connected  back  to  the  first 
point . 

In  the  line  structure  it  is  desired  to  store  the  end  points  so 
that  the  lowest  numbered  (named)  point  is  always  stored  as  the  first 
point.   The  face  for  which  this  is  the  normal  orientation  of  the  line 
will  be  stored  in  the  first  integer  of  column  11  and  the  face  for  which 
this  is  the  reverse  orientation  of  the  line  will  be  stored  in  the  second 
integer  of  column  11.   The  assumption  here  is  that  every  line  segment  or 
edge  is  the  intersection  of  two  planes  and  will  be  entered  once  in  each 
direction.   If  lines  which  lie  entirely  on  one  surface  are  to  be  entered 
they  must  be  entered  in  both  directions  when  that  surface  is  processed. 
See  Appendix  C  and  the  example  input  data  and  the  program  output  fol- 
lowing the  Appendices. 

A  line  is  only  entered  once.   A  search  is  made  of  the  lines  al- 
ready entered.   If  the  line  is  found,  the  face  presently  being  drawn  is 
entered  in  the  proper  integer  in  column  11  according  to  the  orientation 
of  the  line.   If  the  line  is  not  found  the  line  is  entered  by  listing 
its  end  points  in  column  9.   The  present  face  is  entered  in  the  proper 
integer  in  column  11. 
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When  the  last  point  has  been  entered,  the  first  point  is  entered 
as  the  new  point  and  the  final  line  for  the  face  is  processed.   After 
the  completion  of  this  final  line  for  the  face  being  processed,  the 
entire  process  is  repeated  for  the  next  face.   This  continues  until  all 
of  the  input  faces  have  had  their  sequential  points  joined  by  lines.   See 
Flowchart  3. 

4.   Detection  of  Concave  Dihedrals  (CCVCVX) 

It  is  necessary  in  this  treatment  of  the  hidden-line  problem  to 
identify  those  edges  which  correspond  to  the  intersection  of  two  sur- 
faces which  form  a  concave  dihedral.   Subroutine  CCVCVX  identifies  the 
concave  dihedral  and  marks  the  appropriate  line  and  its  end  points 
(Flowchart  4).   A  line  which  results  from  a  concave  dihedral  is  marked 
with  a  minus  sign  in  the  first  integer  in  column  11.   A  node  which  is 
the  end  point  of  at  least  one  concave  line  is  marked  with  a  1  in  the 
first  integer  of  column  7.   A  zero  in  column  7  indicates  that  all  lines 
of  which  that  node  is  an  end  point  result  from  the  intersection  of  two 
surfaces  forming  a  convex  dihedral. 

The  first  step  in  the  detection  of  the  concave  dihedrals  is  the 
calculation  of  inward  pointing  normals  for  each  face.   The  normal  for 
a  face  is  calculated  by  constructing  a  directed  line  from  the  first 
point  entered  to  the  last  point  entered  (line  1)  and  a  second  directed 
line  from  the  first  point  entered  to  the  second  point  entered  (line  2). 
The  length  of  each  of  these  lines  is  normalized.   The  cross  product  of 
the  normalized  lines  [(line  1)  x  (line  2)]  results  in  an  inward  pointing 
unit  normal.   The  direction  cosines  of  the  normal  are  stored  in  array 
FNORML  for  use  as  required. 
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Each  Line  is  then  examined  by  using  the  cross  product  of  the 
normal  of  the  first  face  in  column  11  (normal  orientation)  and  the 
normal  of  the  second  face  in  column  11  (reverse  orientation).   See 
Figure  22  as  an  example. 

Assume  line  AB  is  defined  such  that  A  is  the  low  numbered  point 
and  B  is  the  high-numbered  point.   FACE  1  and  FACE  2  are  identified  in 
the  figure  and  correspond  to  the  normal  orientation  of  the  line  and  the 
reverse  orientation  respectively.   (Remember  each  surface  must  be  entered 
by  following  the  boundary  such  that  the  surface  lies  always  to  the  left.) 
When  the  inward  pointing  normal  of  FACE  1  is  crossed  into  the  inward 
pointing  normal  of  FACE  2,  the  result  is  a  vector  in  the  reverse 
direction  of  line  AB .   If  the  faces  had  formed  a  convex  dihedral,  the 
resultant  vector  would  have  been  aligned  with  line  AB .   To  detect  the 
direction,  the  dot  product  of  the  resultant  of  the  cross  product  and 
the  line  is  calculated.   This  is  the  same  as  detecting  the  projection  of 
the  cross-product  resultant  on  line  AB .   If  the  result  of  the  cross 
product  is  negative,  the  faces  intersect  in  a  concave  dihedral.   If  the 
result  is  positive,  the  intersection  is  a  convex  dihedral.   A  zero 
result  indicates  that  the  faces  are  coplanar. 

The  lines  and  end  points  are  appropriately  marked.   When  all 
lines  have  been  checked,  all  concave  dihedrals  have  been  identified. 
This  process  need  only  be  done  when  the  structure  is  first  entered. 
5.   Transformation  to  Perspective  (C0NV3D) 

This  is  the  first  subroutine  to  be  called  which  is  view  dependent 
The  rotation  angles  and  positions  of  the  object  and  the  observer  should 
be  defined  as  desired  before  this  subroutine  is  called. 
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FIGURE  22 
CONCAVE  DIHEDRAL 

CONV3D  (Flowchart  5)  calls  VMVMAT  (Flowcharts  6,  7)  as  its  first 
step.   VMVMAT  calculates  the  4x4  homogeneous  transformation  matrix 
and  the  location  of  three  points  in  the  focal  plane  as  well  as  the 
location  of  the  focal  point  expressed  in  object  axes  coordinates.   The 
computation  of  the  homogeneous  transformation  matrix  is  discussed  in 
chapters  II  and  III.   To  calculate  the  location  of  the  focal  plane  in 
terms  of  the  object  axes  coordinates,  Euler  angle  rotations  were  used 
with  the  observer's  viewing  angles  and  with  the  negative  of  the  object's 
rotation  angles.   Once  the  matrix  and  the  positions  have  been  calcu- 
lated, they  remain  available  until  the  view  is  changed. 

The  three  points  used  in  the  focal  plane  are  the  origin,  the 
point  y  =  1  on  the  y  axis,  and  the  point  z  =  1  on  the  z  axis.   Trans- 
lation of  the  observer  less  the  translation  of  the  object  provides  the 
resultant  translation  of  the  focal  plane  origin  in  terms  of  the  object 
axes  coordinates.   By  adding  the  proper  direction  cosines  of  the  Euler 
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angle  rotations  of  the  observer,  the  three  points  in  the  focal  plane  are 
expressed  in  object's  axes  coordinates  for  translation  of  the  object  and 
observer  and  rotation  of  the  observer.   To  compensate  for  object  rotation, 
the  Euler  angle  rotation  cosines  are  calculated  for  the  negative  of  the 
object  angle  rotation  (using  matrix  form).   Multiplying  the  three  co- 
ordinates found  previously  for  each  point  by  the  rotation  matrix  pro- 
vides the  coordinates  of  the  three  points  in  the  focal  plane  in  terms 
of  the  object  axes  coordinates.   These  are  saved  and  used  in  a  later 
part  of  the  program. 

C0NV3D  proceeds  with  the  conversion  of  all  data  points  (or  nodes). 
The  theory  of  the  conversion  is  explained  in  chapters  II  and  III.   The 
results  of  the  conversion  are  placed  in  columns  4,  5,  and  6  of  the  main 
ARRAY.   Column  4  is  a  depth  coordinate,  column  5  is  the  horizontal 
picture-plane  coordinate,  and  column  6  is  the  vertical  picture-plane 
coordinate . 

If  the  hidden  lines  were  not  to  be  removed,  the  picture  could 
be  drawn  immediately  by  following  the  line  list  in  column  9  and  con- 
necting the  picture  plane  coordinates  of  the  end  points  listed. 

6 .   Suppressing  Surfaces  Hidden  by  the  Object's  Own  Volume  (HDNSRF) 

In  any  given  object  constructed  of  plane  surfaces,  some  of  the 
surfaces  will  face  away  from  the  observer.   Since  these  surfaces  cannot 
be  seen,  it  is  desirable  to  eliminate  them  as  soon  as  possible  from 
further  consideration  and  spend  the  computation  time  on  the  on  view 
faces  . 

The  test  for  a  surface  oriented  away  from  the  observer  is  made 
in  the  picture  plane  (Flowchart  8).   Once  again  a  line  is  constructed 
from  the  first  point  to  the  last  point  and  from  the  first  point  to  the 
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second  point,  where  first,  second,  and  last  are  in  reference  to  the  order 
in  which  the  points  for  a  face  were  originally  entered.   When  the  first 
line  is  crossed  into  the  second  line  (cross  product),  the  resultant 
vector  will  point  either  into  the  picture  or  out  of  the  picture.   Since 
the  lines  are  coplanar,  there  are  only  two  dimensions  involved  and  the 
test  is  rapid.   If  the  resultant  vector  is  positive,  the  face  is  not  on 
view  and  that  face  is  marked  with  a  negative  sign  in  front  of  the  first 
integer  of  column  8  (the  integer  that  specifies  the  number  of  points  in 
the  face) . 

When  all  the  faces  are  thus  checked,  the  list  of  lines  contain- 
ing the  intersecting  planes  is  checked.   If  a  line  is  the  result  of  the 
intersection  of  two  hidden  surfaces,  the  line  cannot  be  seen  and  is 
therefore  marked  with  a  negative  sign  in  front  of  the  first  integer  in 
column  9.   If  a  line  corresponds  to  a  concave  dihedral  and  at  least  one 
of  the  intersecting  surfaces  is  hidden,  the  line  is  hidden  and  is  so 
marked . 

At  this  point,  if  a  single  object  is  being  displayed  and  the 
object  has  no  concave  dihedrals,  it  is  possible  to  draw  the  object  with 
hidden  lines  removed  by  following  the  line  list  and  connecting  the  end 
points  of  those  lines  not  hidden. 

7.   Termination  of  the  Picture  in  the  Focal  Plane  (ALTER) 

This  subroutine  need  only  be  called  when  a  portion  of  the  picture 
lies  behind  the  observer.   In  order  to  properly  display  the  picture,  the 
lines  which  pass  through  the  focal  plane  must  be  terminated  at  the  focal 
plane.   Subroutine  ALTER  accomplishes  this  task  (Flowchart  9). 

Each  line  is  examined  by  its  end  points  to  determine  if  either 
or  both  ends  are  behind  the  observer.   The  depth  coordinate  of  the  end 
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point  is  negative  if  the  point  is  in  front  of  the  observer  (the  observer 
looks  into  the  negative  x  half-space).   If  both  ends  are  in  front  of  the 
observer,  the  line  is  not  disturbed.   If  the  line  is  hidden  it  is  not 
considered.   If  both  ends  of  the  line  are  behind  the  observer,  the  line 
is  marked  as  if  hidden. 

In  the  remaining  two  cases  ,  one  of  the  end  points  is  in  front  and 
one  is  behind  the  observer.   (Since  the  points  are  identifiable,  the  two 
permutations  define  two  cases.)   The  three  points  in  the  focal  plane  that 
have  had  their  coordinates  converted  to  the  object  axes  system  are  used 
in  the  PIERC  subroutine  to  determine  the  coordinates  of  the  intersection 
of  the  focal  plane  and  the  line.   The  coordinates  of  the  intersection  are 
added  to  the  list  of  points  as  an  additional  point  and  the  line  structure 
is  altered  to  reflect  the  change  in  end  points  for  the  line  being  exam- 
ined.  The  coordinates  of  the  intersection  are  converted  with  the  homo- 
geneous matrix  to  picture-plane  coordinates  and  the  result  is  stored  as 
in  the  original  data  points. 

When  exiting  this  subroutine,  a  flag  is  set  if  any  line  structure 
has  been  altered.   When  ERASE  is  called,  detection  of  this  flag  will 
cause  subroutine  LINES  to  be  called  to  re-establish  the  original  line 
structure . 

8 .   Subroutines  Called  During  Segment  Examination 

Segment  examination  is  accomplished  by  subroutine  CMPUT  which 
in  turn  calls  on  certain  other  subroutines.   Those  subroutines  which 
are  called  during  segment  examination  will  be  discussed  in  this  section. 

a.   Determination  of  the  Nature  of  a  Vertex  (VRTNTR) 

When  examining  a  segment ,  it  is  necessary  to  know  the  nature 
(the  set  of  faces  obscuring  the  node)  of  the  initial  vertex  (picture-plane 
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point  corresponding  to  the  node).   Subroutine  VRTNTR  is  used  to  deter- 
mine the  nature  of  the  vertex  if  it  is  not  already  known.   (Flowchart 
10  applies . ) 

The  basis  for  this  test  is  the  Exterior-Interior  Deter- 
mination discussed  in  an  earlier  section  of  this  chapter.   The  half  line 
is  constructed  vertically  by  allowing  the  vertical  coordinate  to  exceed 
the  vertical  coordinate  of  any  point  on  any  line  segment.   All  line 
segments  that  lie  entirely  to  the  left,  entirely  to  the  right,  or 
entirely  below  the  vertex  being  checked  are  eliminated  from  further  con- 
sideration during  the  test  of  this  vertex.   Those  lines  which  are  hidden 
because  the  intersecting  surfaces  which  define  them  are  not  on  view  are 
also  eliminated.   However  those  segments  which  are  part  of  a  concave 
dihedral  and  are  members  of  at  least  one  on  view  face  are  also  checked 
even  though  the  line  itself  may  be  hidden.   This  occurs  because  those 
boundaries  of  the  on  view  face  which  are  not  concave  dihedrals  will  be 
visible,  and  a  wrong  count  will  result  if  the  concave  dihedral  is 
excluded . 

For  those  segments  which  have  not  been  eliminated,  a  test 
for  intersection  with  the  vertical  half  line  is  made.   The  faces  which 
intersect  to  form  the  segments  intersecting  with  the  half  line  are 
marked  once  for  each  such  segment  if  the  face  is  on  view.   When  all 
segments  have  been  checked,  those  faces  crossed  an  odd  number  of  times 
are  further  checked  to  determine  whether  the  face  is  behind  or  ahead  of 
the  node  associated  with  the  vertex.   This  is  accomplished  by  calling 
PLNLIN  which  sets  up  the  coordinates  of  three  of  the  points  determining 
the  face  and  the  coordinates  of  the  points  determining  the  line  between 
the  observer  and  the  node  being  checked  (Flowchart  11).   The  origin  of 


95 


START 


Init  ia  lize 

Vertex 

Quantities 


Eliminate  Seg 
ments  unable 
to  cross 
vertical  line 


Determine  if 

Segment 

intersects 


Mark  faces 
defining 
intersecting 
segment 


Store  pointer 
for  vertex 
blocking 
faces 


Compare  faces 
crossed  odd 
number  times 
for  depth 


Store  block- 
ing faces 
and  number 
for  vertex 


RETURN 


FLOWCHART  10 
SUBROUTINE  VRTNTR 


96 


PLNLIN 


PIERC 


c 


START 


Specify    plane 
with    1st ,    2nd , 
last    points    of 
designated    face 


PIERC 


C 


EXIT 


START 


) 


Get  direction 
numbers  of 
normal  to 
plane 


Calculate 
constant  for 
intercept 
with  axes 


Ca lculate 
direction 
numbers  of 
line 


Calculate 
parameter  for 
parametric 
line  equation 


Use  parametric 
line  equation 
to  find  inter- 
section 


C 


EXIT 


) 


FLOWCHART  11 
SUBROUTINE  PLNLIN  AND  SUBROUTINE  PIERC 


97 


the  focal  plane  calculated  in  VMVMAT  is  used  as  one  end  point  of  the 
line.   When  the  coordinates  of  the  plane  and  the  line  have  been  deter- 
mined, subroutine  PIERC  is  called  to  determine  the  coordinates  of  the 
intersection  between  the  plane  and  the  line.   These  coordinates  are 
used  in  the  function  DEPTH  to  determine  the  depth  of  the  intersection. 
The  depth  of  the  node  and  the  depth  of  the  intersection  are  now  compared 
and  if  the  intersection  is  closer  than  the  node,  the  face  is  added  to 
LSTBFC.   The  number  of  such  blocking  faces  is  stored  in  the  first  inte- 
ger of  column  13  of  ARRAY  and  the  pointer  to  the  starting  entry  for 
that  node  in  LSTBFC  is  stored  in  the  second  integer  of  column  13. 
b.   Determination  of  Losing  Intersections  (LNTRSC) 

During  the  examination  of  a  segment,  the  initial  vertex  has 
its  nature  determined.   Each  time  another  segment  crosses  in  front  of 
the  segment  being  examined  (a  losing  intersection  for  the  segment  under 
examination),  a  change  in  the  list  of  blocking  faces  occurs.   The  exam- 
ination of  a  segment  is  done  therefore  by  moving  from  the  vertex  with 
its  nature  known  to  each  next  intersection  along  the  segment.   Sub- 
routine LNTRSC  determines  those  intersections  of  direct  concern  (losing 
intersections)  for  the  segment  under  examination  (Flowchart  12).   This 
subroutine  uses  the  special  test  for  implied  vorticity  previously  dis- 
cussed to  determine  whether  or  not  an  intersection  has  taken  place. 

Upon  entering  the  subroutine,  those  quantities  that  will  be 
needed  but  have  not  yet  been  determined  for  the  current  segment  under 
examination  are  found.   When  all  the  characteristic  quantities  for  the 
current  segment  have  been  determined,  all  segments  (called  test  segments) 
are  processed  to  determine  if  a  losing  intersection  has  occured  with  the 
current  segment.   Those  segments  which  do  not  correspond  to  edges  (i.e. 
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lines  lying  on  a  surface)  and  those  segments  resulting  from  the  inter- 
section of  two  hidden  surfaces  are  eliminated  from  consideration. 
However  if  a  segment  is  hidden  but  is  a  member  of  an  on  view  face 
(possible  in  the  case  of  a  concave  dihedral),  it  must  be  checked  for 
intersection  since  a  change  in  the  set  of  blocking  faces  occurs  when 
such  a  line  is  crossed.   In  Figure  23,  when  the  current  segment  is  AB , 
test  segments  CD,  EF ,  GH ,  I J ,  KL,  MN,  OP,  and  QR  cause  changes  in  the 
set  of  on-view  faces  blocking  AB  when  moving  from  A  to  B.   Test  seg- 
ments CD,  QR,  and  GH  each  add  a  face.   Test  segments  EF  and  MN  each  add 
one  face  and  subtract  one  face.   Test  segments  I J ,  KL,  and  OP  each  sub- 
tract one  face.   The  set  of  faces  is  identified  not  only  by  number  but 
also  by  identifying  each  face  in  the  set. 

Special  attention  is  given  to  intersections  at  an  end  point 
(Figure  24)  since  the  implied  vorticity  test  as  previously  discussed  is 
ambiguous  in  this  region.   If  the  intersection  occurs  at  the  end  point 
of  the  current  segment,  it  is  treated  as  an  intersection.   If  the  inter- 
section occurs  at  the  end  point  of  the  test  segment,  the  intersection 
point  and  the  other  points  are  "remembered".   When  a  second  intersection 
occurs  at  the  same  point,  the  other  end  of  the  new  test  segment  is  used 
with  the  remembered  end-point  value  to  construct  a  new  segment  which  is 
then  checked  for  intersection  with  the  current  segment. 

In  Figure  24,  the  current  segment  is  AB .   When  segment  CE 
is  examined,  an  intersection  is  "remembered"  for  point  E  and  the 
opposite  end  point  C  is  remembered.   When  DE  is  examined,  the  inter- 
section at  E  is  detected.   Since  there  is  already  an  intersection  at  E, 
the  opposite  end  point  D  and  the  stored  end  point  C  are  tested  as  a  new 
segment  CD.   In  this  case  the  constructed  line  results  in  no  intersection 
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The  same  procedure  is  repeated  for  FG  and  GH ,  but  in  this  case  the  con- 
structed segment  FH  results  in  the  detection  of  an  intersection.   Segment 
GH  is  then  processed  as  in  any  other  detected  intersection.   Segments  CE , 
DE ,  and  FG  were  treated  as  if  no  intersections  had  occurred  (other  than 
remembering  the  end  points). 

Before  calculating  the  coordinates  of  the  intersection  of 
the  two  segments,  a  test  is  made  to  determine  which  segment  lies  in 
front  of  the  other.   Only  the  coordinates  of  those  intersections  where 
the  current  segment  is  losing  need  be  calculated.   Figures  25  and  26 
show  how  this  determination  is  made. 

A  sighting  plane  is  constructed  using  the  focal  point  and 
the  two  end  points  of  the  edge  corresponding  to  the  current  segment. 
The  observer  "sights"  along  this  plane  when  viewing  the  edge  in  space. 
The  intersection  (piercing  point)  of  the  sighting  plane  and  the  edge 
corresponding  to  the  test  segment  is  then  determined  through  the  special 
test  for  the  intersection  of  a  line  and  a  plane.   Another  line  is  con- 
structed in  the  sighting  plane  connecting  the  focal  point  and  the 
piercing  point.   This  line  is  then  tested  by  the  implied  vorticity  test 
for  intersection  with  the  edge  corresponding  to  the  current  segment.   If 
an  intersection  occurs ,  the  current  segment  is  winning  because  the  test 
segment  lies  on  the  far  side  (from  the  observer's  position)  of  the  cur- 
rent segment.   When  no  intersection  occurs,  the  current  segment  is 
losing  since  the  test  segment  lies  between  the  observer  and  the  current 
segment . 

Figure  25  shows  how  the  situation  of  one  segment  behind 
another  can  occur.   Figure  26  is  reduced  to  three  segments  and  the 
focal  point.   AB  is  the  edge  corresponding  to  the  current  segment. 
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FIGURE  26 
INTERSECTIONS  IN  THE  SIGHTING  PLANE 
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The  sighting  plane  is  determined  in  three  dimensions  by  the  focal  point 

0  where  the  observer  is  located  and  the  end  points  of  AB .   The  sighting 

plane  is  extended  so  that  the  intersection  of  EF  and  the  plane  can  be 

seen.   Exam  segments  CD  and  EF  intersect  the  sighting  plane  at  points 

P   and  ?„„.   Constructed  line  segment  OP    does  not  intersect  with  the 
CD       Er  CD 

current  segment  AB ,  thus  indicating  that  CD  is  in  front  of  AB .   However 

OP   does  intersect  with  AB  and  this  indicates  that  AB  lies  in  front  of 

EF 

EF. 

The  coordinates  of  the  point  of  intersection  can  be  con- 
verted to  picture  plane  coordinates  through  the  use  of  the  homogeneous 
transformation  matrix.   The  coordinates  of  the  losing  intersections  are 
necessary  to  determine  where  the  nature  of  the  current  segment  changes. 
The  point-slope  form  of  the  line  equation  in  the  two  dimensions  of  the 
picture  plane  can  also  be  used  to  determine  where  two  segments  meet  at 
a  common  point.   When  using  slopes  the  infinite  slopes  of  vertical  lines 
must  be  avoided.   This  is  accomplished  by  assigning  a  large  number  as 
the  slope  of  a  vertical  line. 

Overlapping  segments  present  a  special  case  of  multiple 
intersections.   The  various  situations  of  overlapping  segments  were 
discussed  previously  in  this  chapter  in  the  section  on  Implied 
Vorticity . 

c.   Determination  of  the  Nature  of  a  Near  Point  (TSTNNP) 

On  the  rare  occasion  that  a  losing  intersection  occurs  at 
one  of  the  vertices  of  the  current  segment,  it  becomes  necessary  to  be 
able  to  test  a  point  a  small  distance  away  from  the  vertex  to  resolve 
the  ambiguity  shown  in  Figure  27. 
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FIGURE  27 
THE  END  POINT  AMBIGUITY 
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Here  the  current  segment  is  line  AB  which  intersects  line 
CD  at  B.   Assume  B  is  losing  with  respect  to  line  CD.   The  ambiguity 
here  is  whether  line  AB  is  going  behind  or  emerging  from  the  surface 
bounded  by  CD.   TSTNNP  resolves  the  ambiguity  (Flowchart  13). 

The  subroutine  (TSTNNP)  is  much  the  same  as  VRTNTR  except 
that  only  a  few  faces  need  be  checked.   Since  each  segment  has  associ- 
ated with  it  two  faces  ,  only  a  maximum  of  two  faces  need  be  checked  for 
every  intersection  at  the  node.   A  set  of  faces  belonging  to  all  the 
intersections  at  the  node  is  determined  by  combining  the  one  or  two 
faces  for  each  intersecting  segment  (one  face  may  be  hidden)  .   The 
nature  of  the  specified  point  is  then  tested  with  regard  to  this  set 
of  faces  in  the  same  manner  as  VRTNTR  tests  all  faces. 

A  working  list  of  blocking  faces  is  kept  while  examining 
a  segment.   Those  faces  found  to  be  blocking  the  near  point  are  com- 
pared to  the  working  list  of  blocking  faces.   Faces  which  are  a  part  of 
both  lists  remain.   Faces  in  the  working  list  not  found  while  testing 
the  near  point  are  deleted  and  faces  found  in  the  test  but  not  in  the 
working  list  are  tested  to  determine  if  the  face  lies  between  the  test 
point  and  the  observer.   If  the  face  blocks  the  point  it  is  added  to 
the  working  list . 

d.   Scissoring  the  Picture  (WINDOW) 

As  each  end  point  is  determined  for  the  output  line  list, 
subroutine  WINDOW  (Flowchart  14)  is  called  to  "crop"  the  picture. 
Portions  of  the  picture  may  extend  beyond  the  normalized  boundaries  of 
the  frame,  and  this  cropping  allows  the  portion  of  the  picture  within  the 
frame  to  be  drawn  without  distortion  while  eliminating  that  portion  of 
the  picture  external  to  the  picture  frame. 
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There  are  a  number  of  cases  possible  for  the  position  of 
any  given  line  with  respect  to  the  picture  frame.   Figure  28  shows  the 
possible  cases  with  the  line  number  corresponding  to  the  case.   WINDOW 
identifies  which  case  exists  and  takes  the  appropriate  action.   Each 
line  has  a  start  and  an  end  point  which  must  be  separately  processed. 

Line  1  requires  no  action.   Both  ends  of  the  line  are 
within  the  frame.   Line  2  is  the  condition  where  the  line  lies  entirely 
above  (below,  or  to  one  side)  of  the  picture  frame.   In  this  case  the 
line  is  simply  "erased".   Line  3  also  lies  outside  the  picture  frame  but 
the  detection  of  this  condition  is  more  difficult.   Intersection  with 
the  vertical  border  is  calculated  and  if  the  intersection  exceeds  the 
picture  frame  bounds,  the  intersection  with  the  horizontal  frame  is 
calculated.   If  this  also  exceeds  the  picture  frame  bounds,  the  line  is 
erased  since  no  part  of  it  can  lie  within  the  frame.   Line  4  is  treated 
as  Line  3  except  that  in  this  case  the  intersection  lies  within  one  of 
the  frame  boundaries.   The  intersection  of  the  line  with  the  frame  be- 
comes the  new  end  point  of  the  line  in  the  output  line  list.   The  pro- 
cedure is  repeated  for  the  end  point.   Line  5  is  similar  to  Line  4 
except  that  one  end  point  is  already  inside  the  picture. 

When  determining  which  lines  lie  entirely  above,  below,  or 
to  one  side  (case  2),  both  the  start  and  end  points  are  used.   In  case 
3  the  end  point  need  not  be  checked  since  no  intersection  is  possible, 
once  it  has  been  established  that  there  is  no  intersection  from  the 
start  point.   In  cases  1,  4,  and  5  both  start  and  end  points  are  checked. 

The  result  is  that  each  line  segment  extending  beyond  the 
frame  is  cut  off  at  the  frame  boundary. 
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9 .   Examination  of  the  Segments  (CMPUT) 

With  all  the  preliminary  steps  completed,  all  that  remains  is 
to  examine  each  on-view  segment  over  its  length  to  determine  which 
portions  of  the  segment  are  visible  and  therefore  should  be  drawn  and 
which  portions  of  the  segment  are  hidden  and  therefore  not  visible  and 
should  not  be  drawn  (Flowchart  15). 

To  accomplish  this  examination  methodically,  the  first  on-view 
segment  has  the  nature  of  the  initial  vertex  tested  by  VRTNTR.   Each 
on-view  segment  starting  with  this  node  is  then  examined  in  turn.   Losing 
intersections  are  determined  by  a  call  to  LNTRSC.   If  no  losing  inter- 
sections are  detected  and  the  initial  vertex  is  visible,  the  entire 
segment  is  visible  and  the  nature  of  the  final  vertex  is  the  same  as  that 
of  the  initial  vertex. 

If  intersections  are  detected,  it  must  be  determined  if  any  of 
the  intersections  occurred  at  the  initial  vertex.   If  intersection  did 
occur  at  the  initial  vertex,  TSTNNP  must  be  called  to  test  a  point  near 
the  vertex  and  the  working  list  of  blocking  faces  is  modified  to  reflect 
the  nature  of  the  near  point. 

The  draw  flag  is  set  whenever  no  faces  block  a  segment  from 
view  and  is  reset  whenever  faces  block  the  portion  of  the  segment  being 
examined.   When  setting  the  draw  flag,  the  starting  points  for  the  out- 
put line  are  entered  in  the  output  list.   When  resetting  the  draw  flag, 
the  end  points  are  entered  in  the  output  list  after  a  call  to  WINDOW 
to  crop  the  line  to  fit  into  the  picture  frame.   (However,  when  the 
test  of  a  point  near  the  initial  vertex  causes  the  draw  flag  to  be 
reset,  the  initial  point  of  the  line  is  deleted  since  no  line  exists.) 
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The  segment  under  examination  is  now  traversed  to  the  point  of 
the  first  intersection.   If  no  more  intersections  occur,  the  segment  is 
drawn  or  not  drawn  according  to  the  working  nature.   The  number  of 
intersections  at  the  final  vertex  is  detected  and  at  any  time  that  the 
number  of  intersections  remaining  equals  the  number  of  intersections  at 
the  final  vertex,  there  are  no  more  intervening  intersections  and  the 
final  vertex  can  be  tested  by  TSTNNP  for  a  change  in  its  nature. 

The  intervening  intersections  are  used  to  change  the  nature  along 
the  segment  by  using  the  one  or  two  on-view  faces  associated  with  each 
intersecting  test  segment  to  modify  the  working  list  of  blocking  faces. 
If  the  list  contains  a  face  that  is  one  of  the  two  defining  faces  of  a 
segment,  that  face  is  deleted  from  the  list.   If  the  list  does  not  con- 
tain the  face,  the  face  is  added  to  the  list.   (See  LNTRSC  for  an 
example  . ) 

If  more  than  one  intersection  occurs  at  the  same  point,  this 
fact  must  be  detected.   Three  cases  are  possible  when  more  than  one 
intersection  occurs.   Figure  29  shows  the  three  cases.   The  inter- 
sections occur  on  the  picture  plane  and  in  each  example  the  inter- 
section is  losing  for  the  isolated  segment. 

The  intersection  at  P  occurs  because  two  other  segments  also 
intersect  at  P  .   All  three  of  the  edges  are  at  different  distances 
from  the  observer.   These  intersections  are  processed  as  two  differ- 
ent intersections  that  just  happen  to  both  occur  at  P  . 

The  multiple  intersections  at  P9  and  P_  occur  because  the  point 
of  intersection  is  a  corner,  itself  the  intersection  of  three  edges. 
Segment  CD  and  one  of  the  segments  of  the  corner  intersection  overlap 
between  the  intersections.   Both  faces  defining  the  edge  corresponding 
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FIGURE  29 
SPECIAL  CASES  OF  MULTIPLE  INTERSECTIONS 
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to  the  overlapping  segment  are  added  to  the  working  set  of  blocking 
faces  when  arriving  at  P   from  point  C.   Both  faces  are  subtracted  when 
leaving  P_  and  proceeding  towards  D. 

The  multiple  intersections  at  P,  occur  because  the  point  of 
intersection  is  again  a  corner.   This  case  differs  from  the  previous 
example  in  that  segment  EF  does  not  overlap  any  of  the  other  segments. 
To  determine  which  face  or  faces  should  be  added,  a  semi-circle  is  con- 
structed around  the  intersection  (either  direction  is  equally  satis- 
factory) and  intersections  with  the  semi-circle  are  tested  as  single 
intersections.   The  semi-circle  is  in  effect  constructed  through  the 
use  of  the  implied  vorticity  test  and  restricting  the  intersections  to 
one  side  only. 

When  all  intersections  before  the  final  vertex  have  been  pro- 
cessed, only  the  final  vertex  remains.   If  no  intersections  occur  at 
the  final  vertex,  the  examination  of  the  segment  is  complete.   If 
intersections  occur  at  the  final  vertex,  a  point  near  the  vertex  has 
a  nature  already  known.   TSTNNP  is  then  used  to  find  the  nature  at  the 
vertex.   The  nature  of  the  final  vertex  is  entered  in  column  13  of  ARRAY 
if  not  already  known. 

The  next  segment  starting  with  the  same  node  is  then  processed 
or  if  no  other  segments  start  with  this  node,  the  next  on-view  segment 
in  the  list  is  processed  until  all  segments  have  been  examined. 
10.   Preparation  for  a  New  View  (ERASE) 

Before  processing  a  new  view,  column  13  is  reset  to  zero  for 
both  integer  values.   This  is  necessary  because  the  contents  of  column 
13  indicate  whether  or  not  the  nature  of  the  associated  node  is  known. 
The  negative  sign  in  the  second  integer  of  column  9  which  indicates 
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that  the  segment  has  been  examined  is  removed.   If  ALTER  changed  the  data 
structure,  ERASE  calls  subroutine  LINES  to  restructure  the  original  line 
list  . 

E .   SUMMARY 

The  hidden-line  removal  algorithm  presented  here  is  flexible 
and  general  so  that  it  is  easily  tailored  to  specific  applications. 
The  algorithm  could  be  easily  adapted  for  on-line  structure  modification 
or  it  could  be  adapted  for  rapid  calculation  for  display  of  a  restricted 
set  of  views.   A  single  object  with  no  concave  dihedrals  that  is  always 
in  front  of  the  observer  can  be  displayed  after  processing  for  hidden 
surfaces  (HDNSRF)  by  connecting  the  end  points  of  the  visible  lines  and 
cropping  those  lines. 

The  entire  algorithm  has  been  committed  to  a  FORTRAN  IV  program. 
The  algorithm  holds  whether  it  is  committed  to  software  or  hardware  or 
to  a  combination  of  the  two.   If  assembly  language  were  used,  the 
greater  flexibility  would  allow  flags  to  be  used  more  effectively  and 
to  a  greater  extent.   However  the  ideas  advanced  by  the  algorithm 
hold  regardless  of  the  method  of  implementation. 
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VII.   SUMMARY 

An  introduction  into  the  basic  concepts  and  requirements  encountered 
in  the  field  of  three-dimensional  computer  graphics  has  been  presented. 
Techniques  were  developed  for  presenting  the  display  in  two  dimensions 
of  real-space  three-dimensional  objects.   Transforming  the  coordinates 
of  real  space  into  two-dimensional  perspective  space  was  the  subject  of 
chapters  II  and  III.   Chapter  IV  introduced  the  requirements  for 
structuring  data  to  fit  the  application  at  hand,  beginning  with  the 
simple  case  of  two-dimensional  coordinate  storage  and  advancing  to  the 
three-dimensional  case.   Since  contour  lines  are  relative  to  the  field 
of  computer  graphics  in  three  dimensions,  chapter  V  introduced  basic 
concepts  that  may  be  the  basis  for  further  study  and  development.   A 
study  in  three-dimensional  computer  graphics  is  not  complete  without 
an  investigation  into  the  removal  of  hidden  lines.   Chapter  VI  presents 
an  algorithm  for  the  elimination  of  all  lines  (or  those  portions  of  a 
line)  not  visible  to  the  observer. 

A.   THE  TRANSFORMATION 

The  computer  can  be  utilized  to  obtain  perspective  views  of  three- 
dimensional  objects  from  any  specified  angle  and  position.   The  three 
dimensions  of  the  real  world  are  transformed  into  the  two  dimensions 
required  for  a  drawing  on  a  plane  surface.   To  minimize  the  number  of 
points  that  must  be  transformed,  it  is  convenient  to  approximate  an 
object  under  view  by  line  segments  corresponding  to  the  outline  contours 
of  the  object.   If  the  object  is  constrained  to  be  approximated  by  inter- 
secting plane  surfaces,  the  line  segments  will  all  be  straight  lines. 
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A  line  is  then  transformed  by  transforming  the  end  points  and  connecting 
the  transformed  points  by  a  straight  line. 

The  transformation  of  a  point  is  accomplished  by  post-multiplying 
the  coordinate  vector  of  a  point  by  a  4  x  4  matrix.   A  fourth  homogeneous 
coordinate  (equal  to  1.0)  is  added  to  the  coordinate  vector  to  make  the 
multiplication  compatible.   The  time  required  to  transform  a  picture  is 
thus  dependent  only  on  the  number  of  defining  points  in  the  picture.   The 
conversion  time  was  approximately  600  microseconds  per  point  after  the 
matrix  had  been  determined.   (All  times  are  approximate  and  are  in  ref- 
erence to  the  IBM  360-67  computer  located  at  the  Computer  Facility,  Naval 
Postgraduate  School.)   The  calculation  of  the  transformation  matrix  is 
independent  of  the  picture  complexity  and  is  obtained  as  the  product  of 
two  rotation  matrices.   Direction  cosines  are  used  to  determine  the  ele- 
ments of  each  of  two  rotation  matrices.   The  time  required  to  determine 
the  entire  transformation  matrix  was  20  milliseconds.   Associated  with 
the  computation  of  the  matrix  is  the  determination  of  the  location  of 
the  focal  point  and  three  points  in  the  focal  plane  in  terms  of  the 
coordinate  system  used  to  describe  the  object  under  view.   The  time 
required  for  this  computation  was  approximately  16.5  milliseconds. 
These  positions  are  needed  in  the  processing  for  the  removal  of  hidden 
lines  . 

B.   DATA  STRUCTURE 

In  the  field  of  three-dimensional  computer  graphics,  data  can  be 
stored  in  many  different  ways.   There  is  no  one  best  way.   For  a  specific 
application  one  method  may  be  better  than  another  but  many  of  the  same 
elements  exist  in  all  methods.   Chapter  IV  discussed  requirements  in 
storing  data  and  some  methods  to  meet  the  requirements.   Two  requirements 
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which  are  generally  conflicting  are  that  the  data  be  readily  available 
and  that  the  data  be  efficiently  stored. 

In  storing  the  data  for  the  developed  program  three  factors  were 
considered.   Entering  data  must  be  a  simple  process  and  must  not  be 
confusing  to  the  user.   The  data  must  be  available  quickly  and  the  data 
must  be  compactly  stored.   Compromise  on  all  three  requirements  had  to 
be  made.   Accessabi lity  of  the  data  was  compromised  the  most  to  keep 
from  imposing  even  greater  dimensioning  requirements  on  the  user.   The 
subroutine  FACES  causes  a  search  to  be  made  of  existing  points  to  deter- 
mine if  that  point  is  already  entered  .   Thus  as  the  number  of  points 
already  entered  increases,  the  time  to  enter  a  new  point  also  increases. 
For  the  12  point  L-shaped  block  example  in  the  computer  output  section 
(Figures  32,  33,  and  34)  the  time  for  entering  the  points  was  approxi- 
mately 0.158  seconds.   For  the  62  point  aircraft  carrier  (Figures  35-39) 
the  time  for  entering  points  was  1.07  seconds.   The  local  computer 
system  does  not  read  directly  from  the  card  reader  but  instead  loads 
the  output  of  the  card  reader  on  discs  for  processing.   The  above  times 
therefore  do  not  reflect  access  time  to  the  card  reader. 

When  the  points  and  other  necessary  data  have  been  entered  for  all 
the  faces,  LINES  is  called  to  construct  the  line  structure  in  storage. 
Each  new  line  that  is  to  be  entered  is  first  checked  with  all  lines  al- 
ready entered  so  that  the  same  line  will  not  be  entered  twice.   As  the 
list  of  lines  grows,  so  does  the  search  time. 

When  all  lines  have  been  entered,  each  line  is  checked  to  determine 
if  it  is  a  concave  dihedral.   CCVCVX  does  this  to  complete  the  "permanent" 
structure  of  the  object  in  the  data  array.   CCVCVX  calculates  normals  for 
each  surface  and  therefore  is  in  part  dependent  on  the  number  of  faces. 
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Each  line  is  then  checked  so  that  the  time  for  the  second  part  of  this 
subroutine  is  dependent  on  the  number  of  lines.   The  time  to  complete 
the  permanent  structure  through  the  combination  of  LINES  and  CCVCVX  is 
39  milliseconds  for  the  L-shaped  block  and  0.627  seconds  for  the  air- 
craft carrier.   The  L-shaped  block  is  composed  of  32  surfaces  and  93 
lines . 

The  object  is  now  fully  described  in  the  data  array  and  is  completely 
independent  of  any  view  specified  (with  the  exception  of  having  a  portion 
of  the  object  behind  the  viewer). 

C.   HIDDEN- LINE  ELIMINATION 

The  hidden  lines  are  removed  in  two  steps.   In  the  first  step,  HDNSRF 
detects  those  surfaces  which  face  away  from  the  observer.   Lines  on  these 
surfaces  which  cannot  be  seen  by  the  observer  are  eliminated.   All  lines 
thus  hidden  by  the  object's  own  volume  are  eliminated.   Each  projected 
face  must  be  checked,  so  the  process  is  dependent  in  part  on  the  number 
of  faces  and  in  part  on  the  number  of  lines  that  must  be  checked.   The 
L-shaped  block  is  processed  in  5.5  milliseconds  and  the  aircraft  carrier 
is  processed  in  24  milliseconds  for  this  portion  of  the  hidden-line 
removal . 

Alteration  of  the  structure  to  terminate  lines  in  the  focal  plane 
takes  2  milliseconds  for  the  L-shaped  block  and  8  milliseconds  for  the 
aircraft  carrier  when  no  change  is  made.   Each  visible  line  must  be 
checked  to  determine  whether  or  not  it  should  be  terminated.   In  the 
case  of  the  fifth  view  of  the  carrier  (Figure  39)  where  the  aircraft  has 
landed  on  the  deck,  eight  lines  were  terminated  with  new  points  lying  in 
the  focal  plane.   The  total  time  for  ALTER  in  this  case  was  18  milliseconds 
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The  second  step  in  removing  hidden  lines  is  done  by  examining  each 
segment  not  yet  eliminated  over  its  length  and  drawing  that  portion 
which  remains  in  view.   During  the  process  of  examining  a  segment,  the 
intersection  with  every  other  segment  must  be  determined.   Only  those 
intersections  which  affect  visibility  of  the  segment  under  examination 
are  noted.   This  results  in  the  test  being  done  nl  (number  of  lines) 
times  for  each  segment.   The  test  must  be  made  for  all  segments  not  yet 
eliminated.   Additionally  the  nature  of  the  starting  vertex  must  be  deter- 
mined as  well  as  the  nature  of  any  vertex  not  found  during  segment  exam- 
ination.  The  time  necessary  to  determine  the  nature  of  a  vertex  is 
dependent  on  the  number  of  lines  also.   The  time  required  for  the  sub- 
routine CMPUT  is  therefore  related  to  the  square  of  the  number  of  lines 
in  the  structure.   This  is  only  an  approximation  since  the  path  taken  is 
view-dependent.   The  L-shaped  block  is  processed  in  an  average  of  77 
milliseconds  and  the  aircraft  carrier  processing  time  varies  between  1.5 
seconds  and  2  seconds,  depending  on  the  view.   The  program  can  be  modified 
at  the  expense  of  storage  to  allow  intersections  of  the  intersecting  seg- 
ments to  be  saved  and  thus  testing  half  as  many  lines.   By  allowing 
reversed  examination  of  a  line,  some  calls  to  determine  the  vertex 
nature  could  be  eliminated. 

D.   THE  COMPUTER  OUTPUT 

Three  views  of  an  L-shaped  block  are  given  in  Figures  32-34  in  the 
computer  output  section.   Five  views  of  an  aircraft  carrier  are  given 
in  Figures  35-39.   The  pictures  were  drawn  by  the  CALCOMP  Plotter  at  the 
Computer  Facility,  Naval  Postgraduate  School.   Figures  36-39  form  a 
sequence  as  if  a  high  speed  aircraft  were  approaching  for  a  landing,  and 
in  the  final  view  (Figure  39)  the  aircraft  is  on  the  deck. 
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Associated  with  each  Figure  is  a  set  of  data  making  up  a  table.   Each 
table  has  five  parts.   Part  (a)  is  a  listing  of  the  parameters  for  the 
view  following.   Figure  30  is  a  two-dimensional  plot  of  position  for  the 
landing  approach  shown  in  the  last  four  views  of  the  carrier.   Part  (b) 
of  each  table  is  the  listing  of  the  nodes  and  associated  information  of 
the  data  array.   Part  (c)  is  a  list  of  the  lines  and  part  (d)  is  a  pair 
of  lists,  LSTFAC  and  LSTBFC.   ISTFAC  lists  the  points  in  the  order  entered 
(reading  from  left  to  right).   LSTBFC  lists  the  faces  blocking  various 
nodes.   Pointers  in  the  node  data  point  to  LSTBFC.   Part  (e)  of  each 
table  is  a  listing  of  the  output  line  list  available  for  use  by  any  out- 
put device. 

E.  CONTOUR  LLNES 

The  treatment  of  contour  lines  presented  in  chapter  V  was  included 
because  contour  lines  are  very  much  a  part  of  three-dimensional  com- 
puter graphics.   Contour  lines  have  not  received  a  great  amount  of 
attention  because  it  has  been  easier  to  avoid  the  problem  than  to 
develop  techniques  for  working  with  such  lines.   Display  of  contour 
lines  has  also  been  a  problem.   With  the  ability  to  obtain  perspective 
transformations  the  display  problem  becomes  one  of  finding  a  convenient 
way  of  handling  the  lines.   When  techniques  are  developed,  the  contour 
lines  can  be  displayed  in  perspective  with  hidden  lines  removed  as  with 
the  plane-surfaced  objects  used  here. 

F.  APPLICATIONS 

The  potential  applications  of  the  perspective  transformation  and  the 
program  for  hidden- line  removal  are  many.  Two  examples  are  given  in  the 
computer  output  section.   In  one  case  just  a  simple  display  of  an  object 
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from  various  aspects  was  shown.   The  second  case  allows  movement  of  both 
the  object  under  view  and  the  observer. 

The  program  as  developed  may  be  used  to  display  any  three-dimensional 
object  or  structure  that  can  be  described  by  plane  surfaces.   The  crystal 
lattice  structure  of  a  semiconductor  could  be  shown  as  easily  as  the 
view  of  the  aircraft  carrier.   The  focal  length  would  have  to  be  changed 
to  correspond  to  the  size  of  the  picture  being  taken.   The  print  of  the 
picture  being  taken  will  always  be  the  reciprocal  of  the  scale  factor 
times  1/2  in  the  units  used  to  measure  the  focal  length.   Therefore  if 
it  is  desired  to  view  data  measured  in  microns,  the  focal  length  should 
be  in  microns . 

The  computer  not  only  acts  as  a  camera,  but  acts  as  a  variable  size 
camera  where  both  the  lens  and  area  of  the  focal  plane  can  be  varied. 
The  computerized  camera  is  completely  mobile  and  will  present  a  picture 
from  the  specified  orientation  according  to  the  data  that  was  entered 
into  and  resides  in  the  data  array. 

G.   DEVELOPMENT 

The  elements  for  perspective  display  have  been  presented.   Additional 
work  may  extend  the  developed  programs  in  a  number  of  ways. 

1.   Simulators  Using  Displays 

For  specific  applications,  the  program  as  developed  can  be 
tailored  to  operate  at  faster  speeds.   This  is  especially  true  if  the 
program  or  a  part  of  it  is  committed  to  assembly  language.   Additional 
flags  can  identify  certain  lines  that  need  not  be  checked.   Additional 
lists  in  memory  can  speed  the  search  for  points  or  lines.   By  bit  man- 
ipulation, the  list  of  blocking  faces  can  be  disposed  of  and  the 
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information  can  be  stored  in  just  a  few  computer  words  where  each  bit 
identifies  one  face.   Special-purpose  computers  can  speed  such  a  system 
where  logic  choices  determine  paths  and  where  logic  choices  are  based  on 
comparisons.   If  one  section  of  a  computer  can  handle  the  refresh  require 
ments  of  the  display  system  and  another  section  can  update  in  fractions 
of  a  second,  an  apparent  real-time  system  could  be  developed.   Small 
angular  changes  in  pitch,  roll,  and  yaw  can  be  handled  by  shifting  or 
rotating  the  picture  already  formed.   For  small  angles  the  results  are 
the  same  as  recalculating  the  entire  picture.   These  quickened  responses 
could  be  superimposed  on  the  calculated  picture  between  computations  of 
new  views . 

2 .  On-Line  Computer  Graphics 

The  elements  contained  in  this  study  can  be  applied  to  modifi- 
cation on-line  of  the  item  under  view.  The  feature  of  adding  surfaces 
already  exists,  though  a  modification  would  be  desirable  to  keep  LINES 
from  redrawing  already  established  lines.  A  simple  flag  should  remedy 
that  situation.  Deleting  surfaces  would  take  additional  work  in 
identifying  the  surface  and  lines  to  be  removed  and  in  closing  up  any 
holes  left. 

3 .  On-Line   Authorship 

Just  as  text  material  can  now  be  written  on  line  and  formatted 
by  the  computer,  the  insertion  of  pictures  with  the  text  material  would 
be  a  tremendous  aid  when  developing  new  material.   The  writer  could  have 
his  drawings  done  while  the  ideas  are  fresh  in  mind  and  formatted  to 
proper  size  by  the  computer. 
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4 .  Extensions  to  Curved  Surfaces 

The  next  class  of  objects  in  the  hierarchy  of  complexity  are 
those  defined  by  curved  surfaces.   An  extension  to  include  the  curved 
surface  is  a  natural  step  although  a  formidable  one. 

5 .  Tactical  Displays 

Three-dimensional  displays  may  have  significance  in  displaying 
tactical  situations.   In  this  case,  some  study  must  be  extended  towards 
the  determination  of  the  best  method  of  representing  the  information 
without  confusion.   The  ability  to  move  around  in  space  allows  a  study 
of  the  tactical  situation  from  different  aspects. 

6 .  Display  of  Surfaces  as  a  Function  of  Two  Variables 

If  the  problem  of  handling  contour  lines  can  be  resolved  for 
large  numbers  of  points ,  surfaces  which  are  the  function  of  two  vari- 
ables could  be  studied  with  greater  effect  than  now  possible.   This  is 
an  area  where  much  work  still  needs  to  be  done. 

H.   FINAL 

Throughout  each  application  the  basic  transformations  have  been  on 
points  which  in  turn  determine  the  lines  of  the  outlines.   Transformation 
of  points  is  simple  and  fast.   However  the  connection  of  the  points  is 
less  simple  and  becomes  time  consuming  as  picture  complexity  increases. 
Hardware  and  assembly  language  can  reduce  the  time  required.   The  com- 
plexity is  overcome  by  following  the  algorithm  presented  although 
processing  time  will  increase  approximately  in  proportion  to  the  square 
of  the  number  of  lines  defining  the  object. 
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APPENDIX  A 


GLOSSARY 


ALPHA 


BETA 


The  angle  of  rotation,  u  into  v  about  the  w  axis  of  the 
object.   This  corresponds  to  the  object's  yaw. 

The  angle  of  rotation  of  w  into  u  about  the  v  axis  of  the 
object,  corresponding  to  the  object's  pitch. 


COMPUTED  NODE  All  visible  segments  from  this  node  have  been  examined. 

DIRECTION  COSINES   Cosines  of  the  angles  that  the  new  axes  (after 
rotation)  make  with  the  old  axes  (before  rotation). 
These  are  different  for  the  two  cases  of  either  Euler 
Angles  or  Fixed  Angles. 

DISPLAY  COORDINATES   Division  of  the  second  and  third  perspective 

homogeneous  coordinates  by  the  fourth  coordinate  results 
in  the  horizontal  and  vertical  display  coordinates 
res  pect  ive ly . 


EDGE 


The  intersection  of  two  faces  in  three  dimensions.   The 
two-dimensional  equivalent  is  the  segment. 


EULER  ANGLES   The  axes  of  an  object  turn  with  the  object  and  all 
rotations  are  then  about  the  new  orientation  of  the 
axes.   The  specified  order  of  rotation  for  this  study  is 
Alpha,  Beta,  and  then  Gamma.   This  order  agrees  with  the 
use  of  Euler  angles  in  aircraft  coordinate  systems. 

EXAMINED  SEGMENT  The  segment  has  been  examined  for  all  intersections 
and  drawing  information  for  that  segment  has  been 
computed . 


FACE 


The  portion  of  a  plane  bounded  by  the  edges  and  used  to 
construct  some  object  in  three  dimensions.   The  two- 
dimensional  equivalent  is  the  polygon. 


FIXED  AXES  ROTATION  The  axes  of  rotation  do  not  turn, 
are  about  fixed  axes  which  will  not  move 


All  rotations 


FIXED  INERTIAL  REFERENCE  With  no  movement  or  rotation  of  either  the 
viewing  plane  axes  or  the  object  axes,  the  object  axes 
and  the  viewing  plane  axes  correspond  and  define  the 
fixed  inertial  reference. 


GAMMA 


The  angle  of  rotation  of  v  into  w  about  the  u  axis  of 
the  object,  corresponding  to  roll  of  the  object. 
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HOMOGENEOUS   COORDINATES      Real-space    coordinates    are   multiplied   by 

some    factor  which    then   becomes    the    fourth   homogeneous 
coordinate.       In    this    floating-point    implementation    the 
coordinate    is    set    to    1.      For    fixed-point    implementation 
this    factor   can   be    a    normalizing    factor    for   each    point. 

HOMOGENEOUS  TRANSFORMATION  MATRIX   The  4x4  matrix  which  can  be  used 

to    transform  any    four-dimensional   homogeneous    coordinates 
to    perspective    homogeneous    coordinates.      This   matrix  com- 
bines   rotation,    movement,    perspective,    scaling,    and    offset 
transformations . 


NATURE 
NODE 


The    set    of    faces    that    obstruct   a    node    from   sight. 

A   three-dimensional    point,    normally   the    intersection   of 
two   or   more   edges.      The    two-dimensional   equivalent    is 
the   vertex. 


OBJECT  AXES    The  coordinate  system  in  which  the  object  is  referenced. 

The  object  is  that  which  is  to  be  displayed.   The  axes  are 
labeled  u,  v,  and  w. 

OBJECT  AXES  MOVEMENT  The  movement  of  the  object  axes  in  respect  to 
a  fixed  inertial  position. 


OFFSET 


The  distance  from  the  center  of  the  whole  picture  to 
the  center  of  the  enlarged  picture. 


ORIENTATION  OF  THE  VIEWING  PLANE   The  angular  rotation  from  a  fixed 
inertial  reference. 


PHI 


Angular  orientation  of  the  viewing  plane  about  the 
x  axis . 


PS  I 


Angular  orientation  of  the  viewing  plane  about  the 
z  axis . 


SCALE 


The  distance  from  the  center  of  the  picture  to  one  edge. 
A  normal  picture  (no  magnification)  has  a  scale  corres- 
ponding to  1/2.   A  scale  of  1/4  would  be  a  magnification 
of  2. 


THETA 


Angular    orientation   of   the   viewing    plane   about    the 
y  axis . 


VIEWING   PLANE  AXES      The    coordinate    system   based    on    the   viewing    plane, 
such    that    the    picture    is    contained    in    the    yz    plane   and 
the    focus    is    on    the    positive    x  axis    so    that    the    viewer 
looks    into    the    negative-x   half   space.      The    observer's 
position  will   always    be    the    focal    point. 

VIEWING   PLANE  MOVEMENT     The   movement    of    the   viewing    plane    from  a    fixed 
inertial    position. 
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WIRE  FRAME    A  drawing  showing  all  the  lines  whether  or  not  those  lines 
are  hidden.   The  drawing  appears  as  though  the  object  is 
made  of  wires . 


129 


APPENDIX  B 

FORTRAN  IV  PROGRAMMING  DIFFERENCES 
Although  the  attempt  was  made  to  program  the  IBM  360-67  and  the 
SDS-9300  as  nearly  alike  as  possible,  some  differences  were  necessary 
due  to  the  individual  characteristics  of  the  two  computers.   The 
properties  discussed  here  are  those  which  caused  differences  in  pro- 
gramming the  two  computers. 

A.   INTERNAL  SUBROUTINES  VERSUS  ENTRY  POINTS 

On  the  IBM  360-67,  entry  into  a  subroutine  is  allowed  through  the 
use  of  an  entry  statement.   The  statement  takes  the  same  form  as  a 
subroutine  statement  except  that  ENTRY  is  used  in  place  of  SUBROUTINE. 
Arguments  are  allowed  if  desired.   However,  no  subroutine  may  be  called 
by  itself  through  any  of  its  entry  points  (not  reenterant) .   ENTRY 
statements  encountered  during  the  execution  of  a  program  are  treated 
as  CONTINUE  statements. 

On  the  SDS-9300,  no  ENTRY  statements  are  available  but  internal 
subroutines  are  allowed.   Internal  subroutines  are  similar  to  the  usual 
subroutine  except  that  no  END  statement  separates  those  subroutines 
internal  to  a  larger  subroutine.   During  execution,  the  program  is  not 
allowed  to  run  through  any  SUBROUTINE  statements. 

The  use  of  the  entry  points  and  internal  subroutines  allows  the 
named  variables  to  be  available  anywhere  in  the  group  of  internal 
subroutines.   This  allows  entry  into  the  various  routines  without  the 
need  for  a  long  string  of  calling  arguments.   A  blank  or  named  common 
would  have  to  contain  many  variables  to  be  used  for  this  same  purpose. 
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In  both  computers  the  main  subroutine  must  be  called  before  calling 
an  entry  point  or  an  internal  subroutine.   The  entry  points  on  the  IBM 
computer  were  treated  as  internal  subroutines  in  this  application. 

Since  the  IBM-computer  program  cannot  enter  any  of  its  own  entry 
points,  those  subroutines  which  are  called  while  executing  an  internal 
subroutine  must  be  placed  in  a  second  subroutine  with  internal  sub- 
routines (entered  by  ENTRY  statements).   Thus  the  subroutines  in  QSCRB1 
are  called  by  the  internal  subroutines  of  DESCRB  in  the  IBM-computer 
program.   This  was  not  necessary  for  the  SDS  computer  program. 

D.   DO  LOOPS 

DO  loops  on  the  SDS-9300  computer  are  tested  before  entering  and  if 
the  index  value  is  greater  than  the  terminal  value  (positive  incre- 
menting) the  loop  is  not  executed  at  all.   In  the  case  of  the  IBM 
computer  DO  loops  are  always  executed  at  least  once  since  the  index  is 
not  checked  until  the  end  of  the  loop.   This  made  it  necessary  to  insert 
protection  statements  wherever  the  possibility  existed  that  the  terminal 
value  might  be  less  than  the  index  value. 

C.   WORD  LENGTH 

Integers  on  the  SDS  computer  are  each  one  computer  word  (24  bits) 
long.   Real  numbers  use  two  computer  words  and  double  precision  uses 
three  computer  words.   The  IBM  machine  uses  four  bytes  for  both  real 
numbers  and  integers  unless  otherwise  specified.   Specifying  INTEGERS 
will  cause  the  specified  quantities  to  be  represented  as  two-byte 
integers.   However  no  library  functions  can  be  used  with  two-byte 
integers.   The  variables  in  two  bytes  must  first  be  converted  to  four- 
byte  integers  before  even  the  absolute  value  can  be  found. 


131 


D.      MULTIPLE   ASSIGN  STATEMENTS 

The    SDS    computer   allows    the    use    of   multiple   assignments    such   as 

A   =  B   =  C   =   0.0. 
When   convenient,    these   multiple-assign   statements   were   used    in    programming 
the    SDS-9300   computer. 
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APPENDIX  C 

USING  THE  PROGRAM 

Although  there  are  differences  in  coding  between  the  computer  pro- 
grams due  to  the  differences  discussed  in  Appendix  B,  the  use  of  the 
programs  is  quite  similar.   Since  only  minor  differences  must  be  taken 
into  account,  this  discussion  will  apply  to  both  computers.   The  excep- 
tions will  be  noted- 

The  computer  programs  for  both  computers  may  be  found  following  the 
Appendixes  and  preceeding  the  Bibliography.   These  may  be  referred  to 
for  illustrative  purposes. 

A.   DIMENSIONING  REQUIREMENTS 

The  user  must  dimension  the  following  arrays  with  dimensioning 
statements  similar  to  those  listed. 

DIMENSION  ARRAY(N,13),  IARRAY(2 ,N, 13) ,FN0RML(N,3) 
DIMENSION  LSTFAC(NT),  LSTBFC(l) 

DIMENSION  XSTART(NL),  YSTRAT(NL)  ,  XEND(NL),  YEND(NL) 
All  of  the  integer  variables  must  of  course  be  replaced  by  the 
appropriate  integer.   The  integers  are  defined  as  minima,  and  may  be 
larger  without  any  degradation  in  performance. 

N  is  equal  to  or  greater  than  the  number  of  different  points  used  to 
describe  the  object. 

NT  is  equal  to  or  greater  than  the  total  number  of  all  points  entered. 
Every  point  is  counted  in  this  case  each  time  it  is  entered.  For  example, 
if  the  object  were  a  cube  bounded  by  six  faces  with  each  face  determined 
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by  four  points,  the  total  number  of  points  entered  would  be  4  x  6  =  24, 
althougti  N,  the  number  of  different  points  would  be  8. 

If  however,  part  of  the  viewed  object  will  be  behind  the  observer, 
N  must  be  increased  by  one  for  each  line  that  passes  through  the 
observer's  plane  since  additional  points  are  computed  to  determine 
where  each  line  should  terminate. 

NL  is  equal  to  or  greater  than  the  number  of  lines  that  will  be  used 
to  draw  the  finished  picture. 

For  the  IBM  360-67,  IARRAY  must  be  specified  to  be  a  two-byte  integer 
array  (i.e.,  INTEGERS  IARRAY).   IARRAY  must  overlay  ARRAY  such  that  two 
words  in  IARRAY  occupy  the  same  length  as  one  word  in  ARRAY. 

Two  EQUIVALENCE  statements  are  required.   The  statement 
EQUIVALENCE  (ARRAY (1,1), IARRAY (1,1,1)) 
will  properly  align  the  real  array  and  the  integer  array.   This  statement 
is  mandatory  in  this  computer  program. 

The  second  EQUIVALENCE  statement 

EQUIVALENCE  (FN0RML(1 ,3)  ,  LSTBFC(  1)  ) 
is  used  to  conserve  space  by  using  a  portion  of  the  FNORML  array  for 
different  purposes  in  different  sections  of  the  computer  program.   If 
this  EQUIVALENCE  statement  is  not  used,  LSTBFC  must  be  dimensioned  large 
enough  to  hold  all  of  the  blocking  faces  (a  number  which  varies  with  the 
object  and  the  view).   The  value  of  NF  should  generally  be  large  enough 
for  the  array  LSTBFC. 

B.   NAMED  COMMON 

The  program  requires  the  use  of  a  named  common  which  holds  the  angles 
and  positions  of  the  object  and  of  the  observer,  as  well  as  certain  other 
information . 
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The  COMMON  statement  is 

COMMON/SDFB/ALPHA , BETA , GAMMA , PS I , THETA , PHI , OB JMV (3 ) , 
1VIEWMV(3) ,  FOCUSsYOFF,ZOFF,SCLE,HMATRX(4,4),OBSPOS(12) 

where 

ALPHA  is  object  rotation  about  a  vertical  axis. 

BETA  is  object  pitch. 

GAMMA  is  object  roll. 

PSI  is  observer  rotation  about  a  vertical  axis. 

THETA  is  observer  pitch. 

PHI  is  observer  roll. 

OBJMV  is  an  array  containing  the  three  inertial  coordinates  of 
the  origin  of  the  object  axes  in  an  inertial  frame. 

VIEWMV  is  an  array  containing  the  three  inertial  coordinates  of 
the  origin  of  the  observer's  axes  in  an  inertial  frame. 

FOCUS  is  the  focal  length  used  to  'take'  the  picture. 

YOFF  is  the  horizontal  offset  from  the  normal  center  of  the 
picture . 

ZOFF  is  the  vertical  offset  from  the  normal  center  of  the 
picture . 

SCLE  is  the  normalized  distance  from  the  center  to  the  edge  of 
the  picture.   With  no  offset  this  distance  is  1/2. 

HMATRX  is  a  4  x  4  matrix  which  is  used  to  transform  each  point 
to  its  value  in  the  picture  plane.   This  matrix  is  calculated 
once  for  each  view. 

OBSPOS  is  an  array  which  contains  the  locations  of  three  points 
in  the  observer's  focal  plane  expressed  in  the  object  coordinate 
system.   These  positions  are  calculated  once  for  each  view. 

C.   EXTERNAL  STATEMENT 

The  name  of  the  subroutine  which  will  be  used  to  enter  the  object 
description  will  be  passed  as  an  argument  in  a  call  to  subroutine  DESCRB. 
The  name  therefore  must  be  declared  EXTERNAL.   If  the  provided  subroutine 
is  to  be  used,  the  statement  is 
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EXTERNAL  READCR 
and  this  statement  should  appear  before  any  executable  statements. 

D.   INITIALIZATION 

In  the  case  of  the  SDS-9300,  internal  subroutines  are  used  to  take 

advantage  of  access  to  variables  in  a  number  of  the  internal  subroutines 

The  IBM  360-67  program  utilizes  entry  points  to  accomplish  a  similar 

characteristic.   Both  computers  require  an  initial  call  to  identify  the 

arguments.   This  call  need  only  be  made  once  while  using  the  program. 

Since  the  initialization  procedure  resets  many  flags  and  pointers,  the 

call  to  DESCRB  should  only  be  made  when  a  new  object  is  to  be  described. 

Previous  descriptions  are  lost. 

CALL  DESCRB  (ARRAY ,  IARRAY ,  FNORML ,  LSTFAC  ,  N ,  READCR , 
1XSTART ,  YSTART ,XEND , YEND ,NLINES , LSTBFC , NUSED) 

All  of  the  arguments  have  been  previously  introduced  except  NLINES 
and  NUSED.   NLINES  is  the  number  of  lines  drawn  for  the  completed  view 
and  is  less  than  or  equal  to  NL.   NUSED  is  the  number  of  different 
descriptive  points  identified  by  the  program  and  will  be  less  than  or 
equal  to  N.   Both  NLINES  and  NUSED  are  calculated  within  the  program. 

Only  that  portion  of  ARRAY  that  needs  to  be  cleared  will  be  set  to 
zero.   ARRAY  may  be  completely  cleared  before  starting  if  desired,  but 
it  is  not  required.   DESCRB  will  initialize  pointers  and  set  the  angles 
defined  above  to  zero.   Positions  of  the  object  axes  and  the  observer's 
axes  will  also  be  set  to  zero  with  one  exception.   The  object  will  be 
moved  40  units  away  from  the  observer  plane  (focal  plane).   The  focal 
length  will  be  set  at  1.5  units  and  the  scale  will  be  set  to  1/2.   Off- 
sets will  be  set  to  zero.   Any  desired  changes  in  these  values  should  be 
made  after  the  initial  call  to  DESCRB. 
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The    observer    looks    into    the    negative    half-space.      Thus    the    object    is 
initially    placed   at    (-40.0,    0.0,    0.0).      The    remaining   positive   directions 
are    to   the    observer's    right    and    up   respectively. 

E.   DESCRIBING  THE  OBJECT 

The  object  must  be  described  by  bounded  plane  surfaces  called  faces. 
Each  face  is  described  by  listing  the  points  which  determine  the  bounds 
of  the  surface.   The  points  must  be  listed  so  that  the  surface  is  always 
to  the  left  when  traveling  from  point  to  point.   The  first  point  for  each 
face  must  be  a  corner  point  since  the  last  point,  the  first  point,  and 
the  second  point  are  used  to  calculate  an  inward  pointing  normal  and 
therefore  cannot  be  allowed  to  be  collinear.   In  each  face  each  point  is 
connected  to  the  preceeding  point  and  the  final  point  is  connected  back 
to  the  first  point. 

To  enter  the  points  of  a  face,  the  calling  statement  is 

CALL  FACES 

and  this  statement  must  be  used  for  each  face.   It  is  convenient  to  use 

a  DO  loop  to  enter  the  faces. 

DO  1  J=1,NFACES 
CALL  FACES 
1  CONTINUE. 

Of  course  NFACES  must  be  an  integer  number  or  must  be  defined  before 
invoking  the  DO  loop.   Each  face  is  then  entered  in  turn  using  the  sub- 
routine specified  in  the  initializing  call  to  DESCRB.   If  a  subroutine 
other  than  READCR  is  used,  the  subroutine  must  have  dummy  arguments  that 
correspond  to  the  arguments  used  in  READCR  to  be  compatible  with  the  pro- 
gram.  Two  arguments  are  necessary.   The  first  is  an  integer  variable  and 
the  second  is  a  single-subscript  array  of  real  numbers  dimensioned  for 
three  coordinates.   (DIMENSION  TEMPIN(3)  is  an  example.)   On  the  first 
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call  to  the  subroutine,  the  number  of  points  contained  in  the  face  is 
returned  in  the  first  argument.   The  succeeding  calls  return  the  three- 
dimensional  coordinates  of  one  point  for  each  call  where 

TEMPIN(l)  =  u 
TEMPIN(2)  =  v 
TEMPIN(3)  =  w 

in  the  object  coordinate  system.   The  subroutine  will  be  called  to  read 

the  point  coordinates  until  the  specified  number  of  points  have  been 

read . 

If  the  subroutine  READCR  is  used,  the  data  will  be  read  by  the  card 

reader.   The  first  data  card  for  each  face  contains  the  number  of  points 

in  that  face  to  follow.   This  integer  must  be  right  justified  to  column 

10.   Each  succeeding  card  contains  the  three  coordinates  of  one  point. 

The  FORMAT  expected  for  the  coordinate  points  is  3F20.6. 

F.  COMPLETING  THE  DESCRIPTION 

When  all  the  faces  have  been  entered,  the  points  within  each  face  are 
connected  by 

CALL  LINES 
followed  by  a  subroutine  to  identify  the  concave  and  convex  dihedrals. 

CALL  CCVCVX 
This  completes  the  structure  within  the  computer.   These  subroutines 
are  not  called  again  until  the  object  to  be  displayed  is  changed.   As 
many  views  of  the  object  as  desired  may  now  be  developed  by  calling  the 
succeeding  subroutines. 

G.  DEVELOPING  THE  PICTURE  WITHIN  THE  COMPUTER 

Before  continuing  with  the  computation  of  the  picture  from  the 
stored  structure,  any  desired  changes  in  values  of  the  angles  or  positions 
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of  the  object  and  the  observer  must  be  entered.   Changes  in  focal  point, 
offsets,  and  scale  should  also  be  made  at  this  point.   When  these  vari- 
ables are  set  to  the  desired  values  (if  not  set,  these  variables  remain 
set  to  the  last  value  used,  or  if  not  previously  used  are  set  to  the 
values  described  in  the  initializing  procedure),  the  following  calls  are 
made  . 

CALL  ERASE 

CALL  C 0NV3D(N, ARRAY, NUS ED) 

CALL  HDNSRF 

CALL  ALTER 

CALL  CMPUT 

The  call  to  ERASE  need  only  be  made  after  a  previous  view  has  been 
developed.   Calling  ERASE  before  developing  the  first  view  will  not 
degrade  the  result  however.   This  subroutine  resets  flags  in  the 
structure.   It  will  also  reconnect  the  lines  to  their  proper  points  if 
the  subroutine  ALTER  was  used  to  modify  the  structure. 

The  subroutine  C0NV3D  converts  the  three-dimensional  points  to  the 
two-dimensional  points  in  the  picture  plane.   The  arguments  have  been 
previously  defined.   Additionally  C0NV3D  causes  the  position  of  the 
observer  to  be  calculated  in  terms  of  the  object's  coordinate  system. 
This  information  is  used  during  hidden-line  removal. 

Some  surfaces  of  an  object  will  be  hidden  because  they  face  away  from 
the  observer.   Subroutine  HDNSRF  identifies  those  faces  and  eliminates 
them  from  further  consideration  for  the  view  being  developed. 

The  call  to  ALTER  only  need  be  made  when  a  portion  of  the  picture 
is  behind  the  observer.   This  subroutine  cuts  off  the  lines  passing 
through  the  observer's  viewing  plane.   If  it  is  known  in  advance  that 
this  condition  will  not  exist,  ALTER  need  not  be  used.   ALTER  modifies 
the  line  structure  for  those  lines  passing  through  the  observer's 
viewing  plane . 

139 


The  final  call  to  finish  developing  the  picture  is  to  CMFUT.   Each 
on-view  line  is  traversed  and  those  visible  portions  are  specified  to 
be  drawn.   Those  portions  not  visible  are  suppressed. 

The  form  of  the  picture  is  now  an  array  of  NLINES  lines  with 
starting  points  in  XSTART  and  YSTART  and  end  points  in  XEND  and  YEND. 
Any  type  of  display  device  may  now  be  used  for  output  using  only  this 
1 ist  of  lines . 

H.   CONVENIENCE  SUBROUTINES 

Several  helpful  subroutines  are  included  to  aid  the  user.   These 

subroutines  are  not  necessary  to  obtain  a  picture,  but  are  helpful  in 

using  the  program.   The  calls  to  these  subroutines  are  listed  for 

reference . 

CALL  DATSTR 

CALL  LABEL 

CALL  DRAWVP  (NLINES, XSTART, YSTART, XEND, YEND) 

CALL  DRAWIT (NLINES, XSTART, YSTRAT, XEND, YEND) 

1.  Subroutine  DATSl'R 

This  subroutine  will  cause  a  printout  of  the  data  stored  in 
ARRAY(N,13).   The  single-subscript  arrays  LSTFAC  and  LSTBFC  will  also 
be  printed.   The  starting  and  end  points  of  the  lines  in  the  picture  plane 
are  also  printed  (visible  lines). 

2.  Subroutine    LABEL 

This  subroutine  will  printout  the  angles  and  positions  of  the 
object  and  the  observer,  and  also  the  offsets,  focus,  and  scale.   This 
subprogram  is  convenient  for  data  taking. 

3.  Subroutine  DRAWVP 

This  subprogram  gives  a  line  printer  drawing  of  the  picture 
developed  and  is  useful  in  program  development.   Lines  are  drawn  by 
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six  different  synbols--i .e . ,  the  first  six  lines  are  each  printed  with 
a  different  symbol,  with  a  maximum  of  ten  per  line.   Then  the  symbols 
are  repeated  for  every  six  lines.   DRAWVP  is  dimensioned  for  100  lines. 
If  more  lines  are  drawn,  the  dimensions  of  DRAW  and  JXY  in  DRAWVP  must 
be  increased,  but  the  picture  will  become  quite  confused. 

This  subroutine  requires  another  subroutine  to  be  furnished. 
The  required  subroutine  is  VPLOT  and  is  available  in  the  primary  library 
of  the  Naval  Postgraduate  School  SDS-9300  computer.   When  using  the  IBM 
360-67  computer,  the  subroutine  must  be  furnished.   VPLOT  was  developed 
for  the  SDS-9300  computer  at  the  Electrical  Engineering  Computer  Labora- 
tory by  Professor  R.  C.  Johnson.   Changes  in  the  symbols  used  in  plotting 
must  be  made  in  VPLOT. 

4.   Subroutine  DRAWIT 

For  a  hard  copy  drawn  by  the  CALCOMP  plotter,  the  subroutine 
DRAWIT  is  convenient.  This  subroutine  utilizes  the  local  IBM  360-67 
NAVPGSCOL  plotting  package  (Ref.  35). 

This  subroutine  should  be  developed  when  needed  to  fit  a  specific 
application.   The  subroutine  DRAWIT  is  used  as  an  example  to  show  how 
the  plotting  package  can  be  utilized  in  conjunction  with  the  three- 
dimensional  program.   The  title  and  identification  specifically  are 
user  functions.   Before  using  this  subroutine,  the  user  should  consult 
the  referenced  technical  note. 

An  alternative  to  this  subroutine  is  the  IBM  360-67  DRAW 
routine  which  also  utilizes  the  plotting  package.   DRAW  is  a  much  more 
general  program  and  thus  will  be  more  expensive  in  computer  storage  and 
computing  time. 
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I.   INTERPRETING  THE  STRUCTURED  DATA 

Certain  problems  will  occur  if  the  data  is  not  correctly  entered. 
The  fastest  way  to  check  the  data  structure  is  to  call  DATSTR.   Study- 
ing the  printout  may  reveal  where  the  problem  lies. 

The  program  assumes  that  every  line  is  the  intersection  of  two 
planes.   The  two  planes  involved  are  stored  in  column  11  of  the  array. 
This  requires  that  all  lines  must  be  entered  at  least  once  in  each 
direction.   The  same  points  used  to  enter  a  line  in  one  direction  must 
be  used  to  enter  the  line  in  the  reverse  direction.   If  a  line  is 
entered  as  two  segments  in  one  direction,  it  is  necessary  to  have  it 
entered  as  two  segments  in  the  opposite  direction.   A  line  can  be 
drawn  on  a  plane  by  entering  the  line  first  in  one  direction  and  then 
entering  it  in  the  reverse  direction.   Figure  31  illustrates  these  two 
specia 1  cases  . 

D  E 

FIGURE  31 

ENTERING  LINES 
Let  surface  1  be  ADECB  and  surface  2  be  ABCFGH.   The  surfaces  inter- 
sect along  ABC.   Line  BG  is  a  line  to  be  drawn  that  lies  entirely  on 
surface  2.   Surface  2  can  be  entered  by  entering  the  coordinates  for 
the  points  in  the  order  ABGBCFGH.   The  line  BG  is  then  entered 
as  part  of  surface  2  first  in  the  direction  BG  and  then  in  the  direction 
GB .   When  entering  surface  1,  the  order  can  be  A  D  E  C  B.   Line  CA  must 
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be  entered  as  two  segments  (CB  and  BA)  since  the  surface  that  it  inter- 
sects with  is  entered  as  AB  and  BC . 

In  the  data  structure,  column  9  is  the  line  list  which  lists  the  end 
points  of  each  line.   Column  11  is  a  line  list  which  lists  the  two  sur- 
faces which  intersect  to  form  the  line.   Column  10  is  a  continuation  of 
column  9  and  column  12  is  a  continuation  of  column  11.   At  the  end  of 
the  line  lists  one  space  is  skipped  and  the  remaining  space  is  used  for 
scratch  storage  during  computation.   If  both  integers  are  not  filled  in 
column  11,  the  line  was  entered  in  only  one  direction.   The  line  must  be 
entered  in  both  directions. 

The  minus  signs  are  used  to  mark  the  various  segments.   Hidden  lines 
are  marked  with  a  minus  in  the  first  integer  of  column  9.   A  line  that 
has  been  examined  over  its  length  for  hidden  parts  is  marked  with  a  minus 
in  the  second  integer.   A  minus  in  the  first  integer  of  column  11  indi- 
cates the  line  is  an  intersection  of  two  planes  forming  a  concave 
dihedra 1 . 

Column  13  refers  to  the  associated  points.   The  first  integer 
specifies  the  number  of  surfaces  obstructing  a  point  and  the  second 
integer  is  a  pointer  to  the  single-subscript  array  LSTBFC  which  identi- 
fies these  surfaces . 

Some  points  will  have  zero  for  both  integers.   These  points  were 
hidden  and  thus  never  entered  into  the  computation.   Those  points  which 
have  a  zero  for  the  first  integer  but  a  number  for  the  second  integer 
have  no  surfaces  blocking  them  from  view.   The  current  pointer  is  always 
entered  whenever  the  nature  (number  of  faces  blocking  the  point)  is 
found  as  an  indication  that  the  nature  is  now  known. 
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Column  8  is  a  list  of  the  surfaces.   The  first  integer  specifies  the 
number  of  points  in  the  surface.   The  second  integer  is  a  pointer  to 
LSTFAC  array  which  contains  each  point  in  the  order  entered.   A  minus 
in  front  of  the  first  integer  indicates  that  surface  is  oriented  away 
from  the  observer  such  that  it  is  not  on  view. 

Columns  1-3  are  the  original  coordinates  entered.   Column  4  is  a 
depth  column  for  the  points  in  the  current  view.   Columns  5  and  6  are 
picture  plane  coordinates  of  the  points.   Column  5  is  the  horizontal 
component  and  column  6  is  the  vertical  component.   The  first  integer 
in  column  7  when  set  to  1  indicates  the  point  is  an  end  point  of  at 
least  one  concave  dihedral.   The  second  integer  in  column  7  is  not  used. 

If  difficulties  cannot  be  resolved  by  examination  of  the  structured 
data  alone,  reference  between  the  algorithm  explained  in  chapter  VI  and 
the  data  structure  should  reveal  the  nature  of  the  difficulty. 
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PARAMETERS    FtJR    THIS    VIEW 

OBJECT    PCS  ITION    (1  >  -2.5 

OBJECT    POSITION    (2)  -5.0 

OBJECT    POSITION    (  3 )  -2.5 

OBJECT    ANGLE    ALPHA  O.C 

OBJECT    ANGLE    BETA  0.0 

OBJECT    ANGLE    GAMMA  0.0 

OBSERVERS    POSITION    (1)  40. C 

OBSERVERS    POSITION    (2)  0.0 

OBSERVERS    POSITION    (3)  40.0 

OBSERVERS    ANGLF    PSI  O.C 

OBSERVERS    ANGLE    THETA  -35.' 

OBSERVERS    ANGLE    PHI  0.0 

FOCAL    LENGTH  1.5 

SCALF  H.5 

HCRIZCNTAL    OFFSET  r'  .0 

VERTICAL    OFFSET  0.0 


TABLE   I 
PARAMETERS   AND   STRUCTURED  DATA  FOR   L-BLOCK    (1) 


145 


LU 

<C  OOOOCHCOOOC 


X 

> 
o 

> 

o 
u 

ot:  lo  cr  (Mn  ccoo  ^o  oo  -ho 

O  _4  (\j  r\)  _h  Lf>  vO  ir>LT\  rvj  O  CO  c\j 

oo •••••• 

OOOOOOOOC'OOO 
LU    I      I      I      I      I     I      I      I  II 

z 
< 
_J 

Cl 

rj^Nt'  oo  if>  m  >£>  m  >o  cr  f*i  in 

LU r-  f>  0*  h-  — <  00  <NI  <-»  *t  O  (**  — < 

a.>$LOir.  >t<^>frcrcccr<7c  •-• 
Or\j«v<\i(\j''\i<\jc  ooocmcsj 

ITK ••♦.. 

—        ii         i  T  i  i  i  i 

a 


(.    — ir-i-  c-aof--4-irco>tir\ 
,_irorT|,-i  sOQ0vOr*-O'00r-  tr> 

vfa • 

uj rr  .OvO^1^ c f"1  oo <r c fM cr 
CLr.irLTiLriNDvO-or^vOvor^vO 
I   I   i   i   i   i   i   i   i   I   l   i 


oo       o       oo    o 
y\    oo       o       oo"  o 

LU       OO  O  C    C         O 

I- 1  > o O OC-OO O O  O O  o 

C"l  <3     •••••••••••• 

Z  O  LT.  IT.  C  <  3  LP,  C  O  T'  IT>  <..  lo 

•— < 

o 
cc 
o 
o 

OOC         oooooo 
CJO        oooooo 
— IOC        oooooo 
<oooc>o  o  o  o  o  oo  o 

UUC'UUuUmfflfOClOi 

►"-tt— tr— (  >-H«— 4 

</) 

z 

LU 

z: 

*-•  UO'jO>JL-CO 

0  OOOOOOOO 
I                    OOuwOOCO 

LUOOOC.  UOUO'JUUO 

-HU   •••••••••••• 

a.  C  O '  .>  O  LO  LO  LO  -o  O  LO  o  o 

1  III   -«-*   I   ~4r* 

I-  I  I      I  I 


z 

3Z 

_j  lu  — <  oo  ro  >t  ir>  vO  r- oo  O' o  •-' f\i 


146 


COLUMN 

8 

9 

IC 

11 

12 

IDENT 

FACE 

LINE 

POINTS 

INTERSECTING 

SURFACES 

1 

A 

1 

1 

-2 

6    - 

10 

1 

2 

8 

A 

2 

-A 

5 

2 

-3 

-8 

11 

1 

8 

5 

7 

3 

A 

9 

3 

-A 

-11 

12 

1 

6 

5 

6 

A 

-4 

13 

1 

-A 

9    - 

12 

7 

1 

8 

5 

5 

-4 

17 

-1 

5 

-A 

11 

2 

7 

7 

6 

6 

-A 

21 

-5 

6 

3    - 

■12 

-> 

A 

6 

8 

7 

-6 

25 

2 

-6 

C 

0 

8 

2 

0 

<*! 

8 

6 

31 

7 

-8 

-2 

n 

3 

7 

1 

1 

q 

0 

( 

8 

-9 

-13 

0 

3 

5 

8 

A 

It 

-> 

C 

9 

-10 

0 

c 

3 

8 

3 

? 

11 

c 

-7 

10 

ft 

-A 

3 

0 

0 

12 

r 

f 

-5 

7 

0 

0 

A 

7 

^ 

0 

1 

9 

11 

3 


2 

10 

A 

2 


A 

7 
12 
If 


1 

in 

A 

9 


LSTFAC 


5 

6 

11 

12 


2 
11 

7 


7 

12 
5 


3 

1 


LSTBFC 


VISIBLE    LINES 


XSTAPT 

YSTART 

XEND 

YENO 

0.2A715A 

-C.5159JA 

0.259A12 

-C.32899A 

0.2A715A 

-C.51590A 

-0.2A715A 

-0.51590A 

0.259A12 

-0.32899A 

-0.259A12 

-0.32899A 

0.259A12 

-C.32899A 

0.2A2253 

-0.163281 

0.259A12 

-C .32899A 

-0.2A715A 

-0.5159rA 

0.259A12 

-C.32899A 

-0.211A78 

0.11995A 

"5.035727 

-C.168279 

-0.C8130A 

-0.0512C3 

0.0813CA 

-C.C 51 20 8 

-0.084591 

0.11995A 

0.08A591 

C.11995A 

-0.096901 

-0.168281 

0.03A591 
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PARAMETERS    FDR    THIS    VIEW 

OBJECT    POS  ITIflN    (  1  )  -2.5 

OBJECT    POSITION    (2)  -5.f 

OBJECT    POSITION    (3)  -2.5 

OBJFCT    ANGLE    ALPHA  0.r 

OBJECT    ANGLE    BETA  O.C 

G3JECT    ANGLE    GAMMA  O.C 

CBSFRVFRS    POSITION    (1)  -50.0 

OBSERVERS    POSITION    (2)  3C.C 

OBSERVERS    POSITION    (3>  6C  .0 

OBSERVERS    ANGLE    PS  I  149. f 

OBSERVERS    ANGLE    THETA  -46.5 

OBSERVERS    ANGLE    PHI  n.f 

FOCAL    LENGTH  1.5 

SCALE  0.5 

HCRIZCNTAL    OFFSET  O.C 

VERTICAL    OFFSET  D.C 


TABLE   II 
PARAMETERS   AND   STRUCTURED   DATA   FOR   L-BLOCK    (2) 
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PARAMETERS  FOR  THIS  VIEW 

OBJECT  PdS  IT  ION  ( 1  )  -2.5 

OBJECT  POSITION  (2)  -5.? 

GO  J  EC T  POS  IT  ION  ( 3)  -2.5 

G3JFCT  ANGLE  ALPHA 


OBJECT  ANGLE  GAMMA 


i    r> 


OBJFCT     ANGLE     BETA  ? 


l      o 


CBSFPVER5    POSITION    (1)  -5".~ 

OBSERVERS    POSITION     (2)  -50.' 

OBSERVERS    POSITION     (3)  50.0 

OBSERVERS    ANGLE    PS  I  225. f 

OBSERVERS    ANGLE    THETA  -35. " 

OBSERVERS    ANGLE    PHI  O.C 

FOCAL    LENGTH  1.5 

SCALE  1.5 

HCRIZCNTAL    OFFSET  1.? 

VERTICAL    OFFSET  CI- 


TABLE  III 
PARAMETERS   AND   STRUCTURED  DATA   FOR   L-BLOCK    (3) 
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PARAMETERS    FOR    THIS    VIEW 

OBJECT    POSITION    (1)  20CO.C 

OBJECT    POSITION    (2)  CO 

OBJECT    POSITION    (3)  0.0 

OBJECT    ANGLE    ALPHA  60. C 

OBJECT    ANGLE    BETA  O.C 

OBJECT    ANGLE    GAMMA  3.0 

OBSERVERS    POSITION    (1)  0.0 

OBSERVERS    POSITION    (2)  O.C 

OBSERVERS    POSITION    (3)  500. C 

OBSERVERS    ANGLE    PSI  190.0 

OBSERVERS    ANGLE    THETA  -5.C 

OBSERVERS    ANGLE    PHI  0.0 

FOCAL    LENGTH  1.5 

SCALE  0.5 

HORIZONTAL    OFFSET  O.C 

VERTICAL    OFFSET  0.0 


TABLE    IV 
PARAMETERS   AND   STRUCTURED   DATA  FOR  CARRIER    (1) 
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VISIBLE  LINES 

XSTART  YSTART  XENO         YEND 

".434892  -C. 415814  0.520382  -0.404^26 

A. 484892  -C. 415814  0.105424  -0.358930 

}. 484892  -C. 415814  0.484870  -0.417315 

).  523382  -C. 404026  0.554660  -0.392640 

0.55466C  -C. 392640  0.155084  -0. 323504 

0.554660  -0.392640  0.554636  -0.394091 

r.155C84  -r. 323504  0.195094  -0.308815 

3. 195094  -C.3C8815  -0.223027  -0.245690 

-j. 326935  -0.23CCG2  -0.331709  -0.229282 

0.195094  -C. 308815  0.195087  -C. 310083 

-).3317C9  -C. 229282  -0.4145)8  -0.230097 

-3.414508  -C.23G097  -0.467567  -0.224853 

-0.467567  -C. 224853  -0.565062  -0.246^62 

-0.467567  -C.224853  -0.494870  -0.230002 

-0. 565062  -C.246C62  -0.554133  -0.242809 

-0.565062  -C.2A6C62  -0.46578r  -0.258925 

-3.565C62  -C.246C62  -0.565062  -0.246941 

-). 555062  -0.247193  -0.565043  -0.247193 

-0.554183  -0.242809  -0.331383  -0.268164 

-0.22996^  -C. 279734  0.155505  -0.323570 

-3.554183  -C. 242809  -0.523841  -0.236274 

-0.523841  -C. 236274  -0.331484  -0.257745 

-0.222869  -0.269870  0.181043  -0.314956 

-0.523841  -0.236274  -0.494870  -C. 230002 

-C.4S4873  -C.230C02  -0.331581  -0.247792 

-0.222936  -C. 259629  0.108436  -0.295732 

-0.46578C  -0.258925  -0.497705  -0.264487 

-0. 497705  -C. 264487  -0.419879  -0.279175 

-3.4977C5  -0.264487  -0.497688  -0.265658 

-0.419879  -0.279175  -0.441949  -0.283232 

-0.441949  -0.283232  -0.285378  -0.310382 

-0.441949  -C.283232  -0.441933  -0.284444 

-0.285378  -C.31G382  -0.281697  -0.309632 

-^.285378  -C. 310382  -0.038464  -0.353198 

-0.281697  -C. 309632  -0.323825  -0.302345 

-0.281697  -C. 309632  -0.229838  -C. 299069 

-3.281697  -C.3C9632  -0.281927  -0.281998 

-0.038464  -0.353198  0.105424  -0.358930 

-0.038464  -0.353198  -0. 038462  -0.354563 

-0.323825  -0.3C2345  -0.324085  -0.275055 

-0.331328  -0.273847  -0.331747  -0.230833 

-0.331328  -0.273847  -0.281982  -0.281971 

-0.331747  -0. 230833  -0.272387  -0.220590 

-0.331747  -0.23C833  -0.282344  -0.238315 

-0.272387  -0.220590  -0.223144  -0.227762 

-0.222864  -C. 270512  -0.223144  -0.227762 

-0.222864  -C. 270512  -0.281982  -0.281971 

-0.229838  -C. 299069  -0.230021  -0.271942 

-0.223144  -C. 227762  -0.282344  -0.238315 

-0.282344  -C. 238315  -0.281982  -0.281971 

0.486590  -0.481958  0.003725  -0.419425 

0.486590  -C. 481958  0.520359  -0.405502 

^.003725  -C. 419425  -0.558043  -0.310944 

0.0^3725  -C. 419425  0.0O3731  -0.356262 

-•">.558C43  -C. 310*344  -0.563476  -0.247396 

0.434870  -C. 417315  0.105420  -0.360307 

0. 105420  -C. 360307  -0.038462  -0.354563 

-0.038462  -C. 354563  -0.441933  -0.284444 

-0.423097  -0.279767  -0.497688  -0.265658 

-0.469584  -C. 259538  -0.565043  -0.247193 

3.195087  -0.310083  0.157483  -0.323920 

0. 105424  -0.358930  0.105420  -0.360307 
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PARAMETERS    FOR    THIS    VIEW 

OBJECT    POSITION    ( 1)  126. 0 

OBJECT    POSITION    (2)  0.0 

OBJECT    POS  ITION    (3)  0.0 

OBJECT    ANGLE    ALPHA  CO 

OBJECT    ANGLE    BETA  0.0 

OBJECT    ANGLE    GAMMA  0.0 

OBSERVERS    POSITION    (1)  1<U4.C 

OBSERVERS    POSITION    (2)  151. 0 

OBSERVERS    POSITION    (3)  112.5 

OBSERVERS    ANGLE    PS  I  10. C 

OBSERVERS    ANGLE    THETA  O.O 

OBSERVERS    ANGLE    PHI  0.0 

FOCAL    LENGTH  1.5 

SCALE  0.5 

HCRIZCNTAL    OFFSET  O.C 

VERTICAL    OFFSET  0.0 


TABLE   V 
PARAMETERS   AND   STRUCTURED  DATA  FOR  CARRIER    (2) 
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PARAMETERS  FOR  THIS  VIEW 

OBJECT  POSITION  (1)  84,0 

OBJECT  POS  ITION  (2)  0.0 

OBJECT  POSITION  (3)  0.0 

OBJECT  ANGLE  ALPHA  O.C 

OBJECT  ANGLE  BETA  3.C 

OBJECT  ANGLE  GAMMA  3.0 

OBSERVERS  POSITION  (1)  1598. C 

OBSERVERS  POSITION  (2)  96. C 

OBSERVERS  POSITION  (31  96.0 

OBSERVERS  ANGLE  PSI  10.0 

OBSERVERS  ANGLE  THETA  O.C 

OBSERVERS  ANGLE  PHI  0.0 

FOCAL  LENGTH  1.5 

SCALE  0.5 

HORIZONTAL  OFFSET  0.0 

VERTICAL  OFFSET  O.C 


TABLE  VI 
PARAMETERS  AND  STRUCTURED  DATA  FOR  CARRIER  (3) 
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PARAMETERS  FOR  THIS  VIEW 

OBJECT  POSITION  (1)  42. C 

OBJECT  POS  ITION  (2)  CO 

OBJECT  POSITION  (3)  0.0 

OBJECT  ANGLE  ALPHA  0.0 

OBJECT  ANGLE  BETA  0.0 

CBJECT  ANGLE  GAMMA  0.0 

OBSERVERS  POSITION  (1)  1300. f 

OBSERVERS  POSITION  (2)  43.5 

OBSERVERS  POSITION  (3)  80.0 

OBSERVERS  ANGLE  PSI  iO.C 

OBSERVERS  ANGLE  THETA  0.0 

OBSERVERS  ANGLE  PHI  0.0 

FOCAL  LENGTH  1.5 

SCALE  0.5 

HORIZONTAL  OFFSET  0.0 

VERTICAL  OFFSET  0.0 


TABLE  VII 
PARAMETERS  AND  STRUCTURED  DATA  FOR  CARRIER  (4) 
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CRRRIER   (4 


FIGURE  38 
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PAFAMETERS  FOR  THIS  VIEW 

CBJECT  PCS  ITICN  (1 )  0,0 

OBJECT  POSITION  (2)  O.C 

OBJECT  POSITICN  (3)  0.0 

CBJECT  ANGLE  ALPHA  0.0 

OBJECT  ANGLE  BETA  0.0 

CBJECT  ANGLE  GAMMA  0.0 

CBSERVEPS  POSITION  (1)  950. C 

CBSEPVERS  POSITION  (2)  0.0 

CBSERVEPS  POSITION  (3)  66.0 

OBSERVERS  ANGLE  PSI  10.0 

CBSERVERS  ANGLE  THETA  O.C 

CBSERVERS  ANGLE  PHI  O.C 

FCCAL  LENGTH  1.5 

SCALE  0.5 

HCRIZCNTAL  OFFSET  O.C 

VERTICAL  OFFSET  0.^ 


TABLE  VIII 
PARAMETERS  AND  STRUCTURED  DATA  FOR  CARRIER  (5) 
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VISIBLE    LINES 


XST/VRT 
^.677631 
T. 6 776 31 
?. 528135 
~>.  381145 
^.2^28CA 
3.137045 
1  •  3  0  0  r  0  0 
1  .000000 
I. 000000 

i.  noccr 


YSTART 

C029C59 

O.029C59 

"  .028813 

.C28572 

.C44989 

.C44973 

.290405 

.851212 

185C74 


-C. 046789 


XENO 

0.528135 

0.832970 

n. 381145 

0.202804 

-0. 137045 

-l.OGGOOO 

0.2C3018 

0.C01951 

-0.245694 

0.832970 


VEND 
-0.0  288  13 
-0.04294^ 
-0.128572 
-0.044989 
-0.044973 
-0.103245 
-0.044959 
-0.044846 
-0.052309 
-0.042945 
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CRRRIER    (5) 


FIGURE  39 
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COMPUTER    PROGRAM    FOR    THE     IBM    360-67 

C0MM0N/SDF8/ALPHA,BETA.GAMMA,PSl,THETA,PHI ,0BJMV(3), 
1VIEWMV(3),  FOCUS , YOFF, ZOFF , SCLE, HMATRX  (4,4)  ,OBSPOS(  12) 

INTEGER*2    IARRAY 

01  MENS  ION    ARRAY (80 .13), I  ARRAY < 2, 8C , 13 ) ,FNORML ( 80, 3) 

DIMENSION    LSTFACI250) ,LSTBFC(l) 

DIMENSION    XSTART( 100) fYSTART( 100  )  .  XENDUGC  ) ,  YENO<  100  ) 

EQUIVALENCE     ( ARRAY <  1. I ) . I ARRAY< 1 . 1 . 1 ) ) 

EQUIVALENCE    (FNORML(l,3) ,LSTBFC<1) ) 

EXTERNAL    READCR 

IPPT=6 

N  =  8C 

DO    11    1  =  1, N 

DO    11    J*l,13 

ARRAY! I,J)*0.0 
11    CONTINUE 

CALL    DESCRBi ARRAY, IARRAY, FNORML,LSTFAC,N.READCR, 
lXSTART,YSTART,XENO,YEND,NLINEStLSTBFC,NUSEO) 

NFACES=32 

DO    1    J*1,NFACES 

CALL    FACES 

1  CONTINUE 
CALL    LINES 
CALL    CCVCVX 

2  CONTINUE 
IRPT=IRPT-1 
IFURPT.GT.OIGO    TO    3 
GO    TO    9 

3  CONTINUE 
CALL     ERASE 

RE AD (5, 5) ALPHA, BET A. GAMMA, (OBJMVI I ), I* It  3) 
READ(5,5)PSI,THETA,PHIt(VIEWMV( J),J=1,3) 
REA0(5,1C JFOCUS.SCLE,  YOFF, ZOFF 
CALL  C0NV3D(N, ARRAY, NUSED) 
CALL  HDNSRF 
CALL  ALTER 
CALL  CMPUT 
CALL  DATSTR 

CALL  DRAWVP(NLINES,XSTART,YSTART,XEND,YEND) 
CALL  LABEL 

CALL  DRAWIT(NLINES,XSTART,YSTART,XEND,YENO,lRPT) 
GO  TO  2 
5  FORMAT(6F10.3) 
10  F0RMAT<4F10.6) 
9  CONTINUE 
STOP 
END 

SUBROUTINE  CONV3D< N.PNTLST, NUSED) 

COMMON/SDFB/ALPHA.BETA.GAMMA,PSI ,THETA.PHI ,OBJMV<3). 
1VIEWMV(3),F0CUS,Y&FF,Z0FF.$CLE,HMATRX<4,4) ,OBSPOS(12) 

DIMENSION  PNTLST(N113).0ISPLY(3),HCRD3D(4) .TEMPI4) 
C  THIS  PROGRAM  USES  THE  FOURTH  COORDINATE  OF  THE 

C  HOMOGENEOUS  SET  EQUAL  TO  1.0  AND  THEREFORE  REOUCES 

C  THE  NUMBER  OF  MULTIPLICATIONS  NECESSARY 

CALL  VMVMAT 

TEMP(4)*1.0 

DO  5  1*1, NUSED 

DO  1  IN*1.4 

1  HCRD3DUN)*0.0 

C  CONVERT  THREE  DIMENSIONAL  COORDINATES  TO  FOUR 

C     1DIMENSIONAL  HOMOGENOUS  COORDINATES 
DO  2  IM=1.3 

2  TEMP(IM)*PNTLST( I, IM) 
DC  3  K=l,4 

DC  3  J  =  1.4 

HCRD3DIK)=HCRD3D(K)*TEMP< J)*HMATRX( J,K) 

3  CONTINUE 

DO    4    ID*2,3 
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DISPLY( ID)=HCRD3D( ID ) /HCRD3D ( 4) 

4  CONTINUE 

C  SAVE    DEPTH    INFORMATION 

DISPLY(1)=HCRD3D( 1 ) 
DO    5    IS=1,3 

5  PNTLST(I,IS+3)=DISPLYIIS) 
RETURN 

END 

SUBROUTINE  VMVMAT 

COMMON/SDFB/ALPHA,BETA,GAMMA,PSI,THETA,PHI fOBJMV(  3), 
1VIEWMV(3) ,F0CUS,Y0FF.Z0FF,SCLE,HMATRX(4,4) ,ORSPOS( 12) 

DIMENSION  R0TMAT(4,4) , OR  I  MAT (4,4) , TEMP<3) 

DIMENSION  TEMPY(3) , TEMPZ ( 3 ) , TEMPF ( 3 ) 
C  THIS  SUBROUTINE  CALCULATES  THE  4X4  MATRIX  FOR 

C  PERSPCTIVE  TRANSFORMATIONS 

C 
C  .  W 

c  .z 

c 

L  •  •   •   •   • 

c  u 

C  .         OBJECT   . 

C  .......         AXES      .V 

C  X 

C  VIEWPLANE 

C  AXES 

C  .Y 

C 

C  DEFINITIONS 

C  ANGLES  (ENTERED  IN  DEGREES) 

C  ALPHA   ROTATION  OF  U  INTO  V 

C  BETA    ROTATION  OF  W  INTO  U 

C  GAMMA   ROTATION  OF  V  INTO  W 

C  PSI     ROTATION  OF  X  INTO  Y 

C  THETA   ROTATION  OF  Z  INTO  X 

C  PHI     ROTATION  OF  Y  INTO  Z 

C  OBJMV   MOVEMENT  OF  UVW  ORIGIN 

C  MEASURED  IN  XYZ  COORDS 

C  VIEWMV  MOVEMENT  OF  XYZ  AXES 

C  FOCUS   VIEWING  DISTANCE  FROM 

C  PICTURE  PLANE  (YZ  PLANE) 

C  YOFF    HORIZONTAL  OFFSET  IN  PICTURE  PLANE 

C  ZOFF    VERTICAL    OFFSET  IN  PICTURE  PLANE 

C  SCLE    NORMALIZED  DISTANCE  FROM  CENTER  TO  EDGE  OF  PICT 

C  NORMAL  VALUE  FOR  FULL  PICTURE  IS  1/2 

C  NORMAL  RATIO  OF  SCLE  TO  FOCUS  IS  BETWEEN  1/4  AND  1/3 

C  IF  FOCAL  LENGTH  IS  INCREASED  WITH  SCLE  HELD  CONSTANT 

C  THE  RESULT  I S  AS  IF  A  TELEPHOTO  LENS  WERE  USED 

C  DECREASING  THE  FOCAL  LENGTH  CORRESPONDS  TO  USING  A 

C  WIDE  ANGLE  LENS 

C  VIEWING  ANGLES  MEASURED  VERTICALLY  AND  HORIZONTALLY 

C  FROM  CENTER  ARE  APPROXIMATELY  14  DEGREES  FOR  A  RATIO 

C  OF  1/4  AND  18.5  DEGREES  FOR  A  RATIO  OF  1/3 


C 


CALL  ROT AT N(ROTM AT, ALPHA, BET  A,  GAMMA) 

DO  1  1=1,3 

RGTMAT(A,I  )  =  OBJMV(  I)-VIEWMV( I ) 

A=-PSI 

B=-THETA 

C=-PHI 

CALL    FXRTAT(ORIMAT,A,B,C) 

CALL    PRPD(R0TMAT,0RIMAT,4,4,4,HMATRX,4,4,4) 

FC.TP1  =  -SCLE/F0CUS 

HMATRX(1,4)=HMATRX(1, 1)*FCTR1 

HMATRX(2,4)=HMATRX(2,1)*FCTR1 

HMATRXt3,4)=HMATRX(3, 1)*FCTR1 

HMATRX(4,4)=(HMATRX(4,l)-F0CUS)*FCTRl 

IF(YOFF.EO.O.)GO    TO    3 

FCTP2=YOFF/SCLE 

DO    2    1=1,4 
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2  HMATPXU  ,2)=HMATRX(I,2)+FCTR2*HMATRX(I  ,4) 

3  CONTINUE 
IHZOFF.EQ.O.  )GO    TO    5 
FCTR3=ZOFF/SCLE 

OG    4    1=1, A 

4  HMATPXU ,3)=HMATRX(I , 3 ) +FCTR3*HMATRX ( 1,4) 

5  CONTINUE 

CALL    POTATN(ORIMAT,PSI,THETA,PHI ) 

00    6    1=1,3 

TEMP ( I )=VIEWMV( I l-OBJMVU I 

TEMPF( I) -OR I  MAT (It  I )* FOCUS +TEMP ( I ) 

TEMPY(  I)=OPIMAT(2tn*TEMP(  I) 

6  TEMPZ(I)=ORIMAT<3, II+TEMP( I ) 
A=-ALPHA 

B=-BETA 

C=-GAMMA 

CALL  POTATN(ROTMAT, AfB,C) 

DO    7    1=1.12 

7  OBSPOSU  1  =  0. 
DO    8    J=l,3 
JJ=J*3 
JJJ=J+6 
J4J=J+9 

DO    8    1=1,3 

OBSPOS(JJ)=OBSPOS< JJ)*TEMPY( I )*ROTMAT( I, J) 
OBSPOS(JJJ)=OBSPOS(JJJ)+TEMPZ( I)*ROTMAT( I, J) 
0BSP0S(J4J)=0BSP0S(J4JH-TEMPF(I)*R0TMAT(  I,  J) 

8  0BSP0S(J)=08SP0S( J)+TEMP(  I >*ROTMAT(  I ,J) 
RETURN 

END 

SUBROUTINE  FXRTAT ( RMATRX , A, B,C ) 

DIMENSION    RMATRX(4,4) 
C  THIS    SUBROUTINE    CALCULATES    THE    4X4    ROTATION 

C  MATRIX    FOR    FIXED    ANGLE    ROTATION. 

C  CALCULATE    DIRECTIONAL    COSINES 

C  AND   PLACE    IN    ROTATION    MATRIX 

TPI=3. 1416/180. 

ALPHA=TPI*A 

BETA=TPI*B 

GAMMA=TPI*C 

SALPHA=SIN(ALPHA) 

CALPHA=COS(ALPHAI 

SBETA=SIN(BETA) 

CBETA=COS(BETA) 

SGAMMA=SIN(GAMMA) 

CCAMMA=COS(GAMMA) 

TEMP 1=CGAMMA*S ALPHA 

TEMP2=SGAMMA*C ALPHA 

TFMP3=SGAMMA*SALPHA 

TEMP4=CGAMMA*C ALPHA 

RMATRXCltl )=CBETA*CALPHA 

PMATRX(1,2)  =  TEMPH-TEMP2*SBETA 

RMATRX (1,3 )=TEMP3-TEMP4*SBETA 

RMATRX(2tl )=-CBETA*SALPHA 

RMATRX(2f2 )=TEMP4-TEMP3*SBETA 

RMATRX(2f3 )=TEMP2*TEMP1*SBETA 

RMATRX(3tl)=SBETA 

RMATRX (3,2 )=-CBETA*SGAMMA 

RMATRX(3t3 )=CGAMMA*CBETA 

DO  1  1=1,3 

RMATRX( I,4)=0. 
I    RMATRX(4,I )=0. 

RMATRX(4,4)=1. 

RETURN 

END 
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SUBPOUTINE  ROTATN(  RMATRX , A , B, C  ) 

DIMFNSION    RMATRX(4,4) 
C  THIS    SUBROUTINE    CALCULATES    THE    4X4    ROTATION 

C  MATRIX     FOR     EULER    ANGLE    ROTATION 

C  CALCULATE    DIRECTIONAL    COSINES 

C  AND    PLACE     IN    ROTATION    MATRIX 

TPI=3. 1416/180. 

ALPHA=TPI*A 

BETA=TPI*B 

GAMMA=TPI*C 

SALPHA=SIN(ALPHA) 

CALPHA=COS (ALPHA) 

SeETA=SIN(BETA) 

CBETA=COS( BETA) 

SGAMMA=SIM(GAMMA) 

CGAMMA=COS(GAMMA) 

TFMP1=CGAMMA*S ALPHA 

TEMP2=SGAMMA*C ALPHA 

TEMP3=SGAMMA*SALPHA 

TEMP4=CGAMM**C ALPHA 

RMATRX (1,1  )  =  C BET A*C ALP  HA 

RMATRX (1,2 )=CBETA*SALPHA 

RMATRXd,?  )  =  -SBETA 

RMATRX(2,1 )=TEMP2*SBETA-TEMPl 

RMATRX (2,2 )=TEMP3*SBETA+TEMP4 

RMATRX (2,3 )=SGAMMA*CBETA 

RMATRX(3,1 )=SBETA*TEMP4+TEMP3 

RMATRX(3,2)=SBETA*TCMP1-TEMP2 

RMATRX(3,3)=CBETA*CGAMMA 

DO  1  1=1,3 

RMATRXd, 4)  =  P. 
1    RMATRX(4,I )=0. 

RMATRX(4,4)=1. 

RETURN 

END 

SUBROUTINE  PROD  ( A, B, N, M, L,C , ND ,MD,LD) 
DIMENSION  A(ND,MD) ,B(MD,LD),C(ND,LD) 
DO  1  1=1, ND 
DO  1  J=1,LD 
1  C  (  I ,  J  )  =0  . 
DO  151  1=1, N 
DC  151  J=1,L 
DO  151  K=l  fM 
151  C(I,J)  =  C(ItJ)  «■  A(I ,K)*B(K,J) 
RETURN 
END 

SUBROUTINE  DESCRB ( ARRAY, I ARR AY, FNORML , LSTF AC ,N, SUBR1  , 
1 X  START, Y ST  ART, X  END, Y END, / JDSPLY/ , LSTBFC, /NPNTR/) 

C0MM0N/SDFB/ALPHA,BETA,GAMMA,PSI,THETA,PHI,0BJMV(3), 
1VIEWMV(3),F0CUS,Y0FF,Z0FF,SCLE,HMATRX(4,4) ,OBSPOS( 12) 

COMMON  /DSCRB/LPNTR,JPNTR, I  FACE, TEMP  IN (9 ) , ICROSS, 
IINRSCT,IC0UNT,NTFMP,CURSEG,LL0W,LHIGH,XL0W,XHIGH,YL0W, 
2YHIGH,XNEAR, YNEAR, DPTHNR,  AA ( 3 ) , BB ( 3 ) ,CC ( 3  ) , PP ( 3 ) , AAL , 
3BBL,LPFSTR 

INTEGER*2  IARR  AY  (  2  ,N,  1  3) 

DIMENSION  ARR AY (N, 13) ,LSTFAC( 1),LSTBFC( 1  ) 

DIMENSION  FN0RML(N,3) 

D  I  MENS  ION     IWRKNR( 20) , JGSE T( 2  3 ) , I NTL VR ( 20 ) 

DIMENSION    XSTART( 1 ),YSTART( 1 ) , XFND( II , YEND( 1) 

INTEGER    POINT, CUR SEG, TPNTR , TEMP 

TF  ISNS(Af  ,  BO,A1,B1,A2,B2,CONST)  =  AO*8H-A2*BO-AO*B2- 
lAl*Br+CONST 
C 
C  N    IS    THE    NUMBER    OF    DIFFERENT    POINTS    EXPECTED 
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C  SUBP1  IS  THE  SUBROUTINE  THAT  WILL  ENTER  DATA 

C  CALLING  NAME  OF  SUBR1  MUST  BE  DECLARED  EXTERNAL 

C  IN  THE  MAIN  CALLING  PROGRAM  IN  ORDER  THAT  ITS 

C  NAME  WILL  BE  RECOGNIZED  AS  A  SUBROUTINE 

C  DATA  IS  ENTERED  IN  THE  FIRST  THREE  LOCATIONS 

C  OF  TEMPIN 

C  SUBR1  SHOULD  READ  IN  NUMBER  OF  POINTS  TO  THE  FACE 

C  THIS  SHOULD  BE  FOLLOWED  BY  THE  THREE  COORDINATES 

C  OF  EACF  POINT,  ONE  POINT  AT  A  TIME,  INTO  ARRAY 

C  TEMPIN 

C  IF    DESIRED,    READCR    MAY    BE    USED    TO    ENTER    DATA 

C  FORMAT    EXPECTED    IS     1110    FOR    THE    NUMBER    OF    POINTS 

C  OF     THAT    FACE    TO    FOLLOW 

C  SUBSEQUENT    CARDS    WILL    USE    THE    FORMAT    3F2r>.6    FOR 

C  COORDINATES    X,Y,Z 

C  THE    FIRST    POINT    ENTERED    MUST    BE    A    CORNER    POINT 

C  I.E.,     THE    LAST,    FIRST,     AND    SECOND    POINTS    MUST 

C  NOT    BE    COLLINEAR 
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NPNTR=0 
LRESTP=C 
LPNTR=0 
IFPNTR=G 
LSPNTP=C 
JLSPLY=0 
JPNTR=C 

CALL  QSCRBKN,  ARRAY,  I  ARRAY,  FNORML,LSTF  AC,L  ST  BFC, 
1 IWRKNR,INTLVR, JGSET,X START, Y ST ART, XENO , YEND, JDSPLY ) 
DC  1  1=1, N 
ARRAY!  I, 7)=). 
ARRAY!  1 ,  13  >  =  n  . 
1  CONTINUE 
RETURN 

ENTRY  ERASE 

DO  7  1=1, N 
7  APRAY(  1,13  >=0. 

IF (LRESTP.NE.O )G0  TO  30 

DO  6  I=1,LPNTR 

TEMP=IARRAY(2, 1,9) 
6  IARRAY(2,I ,9)=IABS(TEMP) 

RETURN 

EfcTRY  FACES 

NPT=1 

CALL  SUBR1 (NPT.TEMPIN) 

IFPNTR=IFPNTR-H 

IARRAY!1,IFPNTR,8)=NPT 

IARPAY!2,IFPNTR,8)=LSPNTR*1 

DC    13    IN=1,NPT 

CALL  SUBRIO, TEMPIN) 

21  00  22  I=1,NPNTR 

IF (TEMPIN! 1) .EQ. ARRAY! 1,1 ) .AND. TEMP  IN! 2 ) . EQ. ARRAY ! 1,2) 
1. AND. TEMPIN(3).EQ. ARRAY! I ,3) )G0    TO    14 

22  CONTINUE 
NPNTR=NPNTR+1 
NEW=NPNTR 

DO  11  1=1,3 

11  ARRAY1NPNTP, I )=TEMPIN( I ) 

12  LSPNTP=LSPNTR+1 

13  LSTFAC(LSPNTR)=NEW 
RETURN 

14  NEW=I 

GO    TO    12 

ENTRY  LINFS 
30  CONTINUE 

DO    4C     1=1, IFPNTR 

IR  =  1 

NBR=IARRAY (1,1,8) 

NBR=IABS(NBR) 

TPNTR=IARP  AY!2,I,8) 
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LSTRT=TPNTR 

LPNT  =  LSTFAC<  TPNTR) 

31  TFNTR=TPNTP+1 
NPNT=LSTFAC( TPNTR) 

32  IP  =  IR-H 

IF  (NPNT.LT  .LPNTJGO    Tf)    38 
I  E  =1 

LLOW=LPNT 
LhIGH=NPNT 
39    CONTINUF 

DO    16    J=1,LPNTR 

IF! I  ARRAY! 1, J,9).EQ.LL0W.AND. I  ARRAY ( 2 t J, 9) .EQ.LHIGH)Gn 
1TC    37 

16  CONTINUE 
LPNTP=LPNTP+1 

IF(l  RESTR.NF.OGO    TO    33 

17  IARRAYI IB,LPNTR,11 )=I 

33  IAPPAY( 1 ,LPNTR,9)=LL0W 
IARRAY<2,LPNTR,9)=LHIGH 

?4    LPNT=NPNT 

IF(  IR-NBR)  31,36,40 

36  NPNT=LSTFAC(LSTRT) 
GC    TO    32 

37  IAPRAYIIB,  J, 11  )  =  I 
Gfi    TO    34 

38  LLCW=NPNT 
LHIGH=LPNT 
IB  =  2 

GO    TO    39 
4C    CONTINUE 
LRESTR=G 
RETURN 

ENTRY    CCVCVX 

DO    49     1=1, IFPNTR 

NBR=IARRAY(1, I ,8) 

NBR=IA6S(NBR) 

TPNTR=IARRAY(2,  1,8) 

POINT=LSTFAC(TPNTR«-N6R-l) 

DO    41    J=l,3 

41  TFMPIN(J)  =  ARRAY(POINT,  J) 
POINT=LSTFAC(TPNTR) 

DO    42    J=l,3 

42  TEMPINI J+3)=ARRAYIPOINT,J) 
POINT=LSTFAC(TPNTR*-l) 

DO    43    J-1,3 

43  TEMPINI J+6)=ARRAY(P0INT, J) 

A=SQRT< (TEMP  INI 1)-TEMPIN(4)  ) **2  +  < TEMP  I N( 2)-TEMPIN(5) ) 
1**2+(TEMPINI3)-TEMPIN(6)  )**2) 

B  =  SCPT( I TE MP  INI  7) -TEMPI N( 4) » **2  +  I TEMP  I N( 8 ) -TEMP IN  (  5 )  ) 
1**2+<TEMPIN(9)-TEMPIN(6) )**2) 

ARI=1./(A*B) 

FN0RML(I,1)  =  ABI*(  ( TEMP  INI  2 ) -TEMPI N ( 5 ) )*{ TEMPINI9 ) - 
1TEMPIN(6))-(TEMPIN(3)-TEMPIN(6) )*< TEMP  INC  8 )- 
2TEMPINI5) ) ) 

FNORMLI I,2)  =  ABI*( I  TEMP  INI  3 ) -TEMPI N ( 6 ) )*(TEMPIN(7)- 
1TEMPINI4)  l-(  TEMP  INCH-TEMP  IN  <  4)  )  *(  TEMP  IN  I  9  )- 
2TFMPINI6)  )  ) 

FNORMLI I ,3)=ABI*( I  TEMP  IN  I 1I-TEMPINI4) ) *< TE MP  I N( 8 ) - 
1TEMPIN(5))-ITEMPIN(2)-TEMPINI5) ) *< TEMP  IN  I  7 )- 
2TEMPINI4) ) ) 
49    CONTINUE 

DC    47    1=1, LPNTR 

IFACE1=IARRAY( 1.1 ,11) 

IFACE1=IABSI IFACE1) 

IFACE2=IARRAY(2, 1,11) 

LLOW=IARRAY( 1,  1,9) 

LHIGH=IARRAY(2,I,9) 

DO    44    J=l,3 

AA(J)=FNOPML( IFACElt J) 

44  BB(J)=FNORMLI IFACE2.J) 
CALL    CROSS(AA,BB,CC) 
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DO    45    J=l,3 
4  5    AA(J)=ARRAY(LHIGH, J ) -ARRAY ( LLOW, J ) 
SCALAR=0. 
DP    46    J=l,3 

46  SCALAR=AA( J)*CC< Jl+SCALAR 
IF  (SCALAR. GE.O.)GO    TO    47 
IARRAYd, 1, 11)=-IFACE1 
IARRAY(1,LL0W,7)=1 
IARPAY(1,LHIGH,7)=1 

47  CONTINUF 
RFTUPN 

ENTRY    HDNSRF 

JPNTR=0 

DP    54    1=1, IFPNTR 

NBR=IARPAY(1,  1,8) 

NBR=IABS(NBR) 

TPNTR=IARRAY(2,I,8) 

PCINT=LSTFAC(TPNTR*NBR-1) 

DO    51    J=l,2 

51  TEMPIN(J)=ARRAY(P0INT,J*4) 
PPINT=LSTFAC(TPNTR) 

DP    52    J=3,4 

52  TEMPIN(J)=ARRAY(POINT,  J+2) 
POINT=LSTFAC(TPNTR*l) 

DP    53    J=5,6 

53  TEMPIN(J)=ARRAY(POINT, J) 
DEPTHN=(TEMPIN(1)-TEMPIN(3) ) *( TEMP  IN (6 )-TE MP  IN (4) ) 

1(TEMPIN(5)-TEMPIN(3))*(TEMPIN(2)-TEMPIN(4) ) 
IF(DEPTHN.GE.0.)GO    TO    55 
IARRAYd  ,1  ,8)=NBR 

54  CONTINUE 

DO    58    I=1,LPNTR 
IFLAG1=C 

TEMP=IARRAY( 1,  1,9) 
TEMP=IABS(TEMP) 
IFACE1=IARRAY( 1,1,11) 
IFdFACEl.GT.O  )GO    TO    57 
IFACE1=-IFACE1 
IFLAG1=1 

57  CONTINUE 
IFACF2=IARPAY(2, 1,11) 

IF (I  ARRAY ( 1, IFACE1,8).LT.0IIFLAG1=IFLAG1*1 
IF  (IARRAYd,  IFACE2,8).LT.0)IFLAG1=IFLAGH-1 
IF(IFLAGl.GE.2)GO    TO    56 
IARRAYd, 1, 9)  =  TEMP 

58  CONTINUE 
RETURN 

55  IARRAYd,  I  ,3)=-NBR 
GO    TO    54 

56  IARRAYd, I  ,9)=-TEMP 
GO    TO    58 

ENTRY    CMPUT 

EXAMINE    SEGMENTS    ORIGINATING    AT    SPECIFIED    NODE 
JDSPLY=C 

DO  104  ILK=1.LPNTR 
LLOW=IARRAY(l, ILK, 9) 
IF(LLOW.LT.O)GO  TO  104 
XL0W=ARRAY(LL0W,5) 
YL0W=ARRAY(LL0W,6) 

IF(IARRAY(2,LLOW,13).NE.0)GO  TO  105 
CALL  VRTNTP 
105  CONTINUE 

SEARCH  FIRST  NODE  OF  ALL  SEGMENTS 
DP  114  IL=ILK,LPNTR 

IF(IARRAY(1, IL,9).NE.LL0W)G0  TO  114 
LHIGH=IARRAY(2,IL,9) 
IF(LHIGH.LT.0)GO  TO  114 

ENTER    NATURE    AT    INITIAL    VERTEX 
112    NBR=IARRAY(1.LL0W,13) 

TPNTR=IARR AY  t 2 , LLOW, 1 3 » 

198 


IWRKNP { 1)=NBR 

IF  (NRP  .FQ.OGO    TO    3C  1 

IDRAW=0 
P7    IEND=NBR*1 

DC    111    J=2,IEN0 
111     IWRKNP  (JI  =  LSTBFC(TPNTR«-J-2> 
113    CONTINUE 
C  FIND    DIRECTION    NUMBERS 

XHIGH=ARRAY(LHIGH,5) 

YHIGH=ARRAY(LHIGH,6) 

AAL=XHIGH-XLOW 

BBL=YHIGH-YLOW 
C  FIND    LOSING    INTERSECTIONS 

CURSEG=IL 

CALL    LNTPSC 

IF(  INRSCT.EQ.O)GO    TO    103 
C  SEARCH    FOP     INTERSECTION    AT     INITIAL    VFRTEX 

ICCUNT  =  INRSCT 

IJK=LPNTP*1 

NTEMP=0 

DC    1C9    1=1  fINRSCT 

IJK=IJK+1 

IFUARRAY<1,IJK,9).LT.0)G0  TO  109 

IF(XLOW.NE.FNORML( I ,11 .OR  . YLOW. NE .FNORML( I , 2 ) )GO  TO 
11C9 
C  INTERSECTION  OCCURS  AT  INITIAL  VERTEX 

NTEMP=NTEMP*1 

INTLVR(NTEMP)=IARRAY( 1.IJK.9) 

I  ARRAY  <1,  UK,  9)  =  - I  ARRAY  (1,1  JK,  9) 
109  CONTINUE 

IF(NTEMP.EQ.0)GO  TO  151 

XNEAR=XLOW*.00  01*AAL 

YNEAR=YLOW+.0001*BBL 
C  COMPUTE  DEPTH  OF  PCINT  NEAR  VERTEX 

TEMPIN(1)=.001*ARRAY(LHIGH, 1 1 -ARR AY( LLOW , 1  I*. 999 

TEMPIN(2)=.001*ARRAY(LHIGH,2)-ARRAY(LLOW,2)*.999 

TFMPIN(3)=.OC1*ARRAY(LHIGH,3)-ARRAY(LLOW,3  >*.999 

DPTHNR=DEPTH(TEMPIN(1) , TEMPINt 2 ) , TEMP  I N( 3 ) ) 

CALL    TSTNNP 

IFIIDRAW.EQ.l.AND.  IWRKNRd  ).NE.C)GO    TO    3C  2 

IFUDRAW.EQ.O.  AND.  I  WRKNR(  1 )  .  EO.O  )  GO    TO    303 

GO    TO    151 

301  JDSPLY=JDSPLY+1 
XSTART(JDSPLY)=XLOW 
YSTAPT(JDSPLY)=YLOW 
IDRAW=1 

GO    TO    113 

302  JDSPLY=JDSPLY-1 
IDRAW=0 

GO  TO  151 

303  JDSPLY=JDSPLY+1 
XSTARTI JDSPLY)=XLOW 
YSTART (JDSPLY)=YLOW 
IDRAW=1 

151  CONTINUE 
IF(ICOUNT.EO.O)  GO  TO  103 
NTEMP=C 

IJK=LPNTR«-1 
DO  152  I=1,INRSCT 
IJK=IJK+1 

IJKTST=IARRAY( 1,1 JK,9> 
IFIIJKTST.LT. 0 )GO  TO  152 

IF(XHIGH.EQ.FNORML(I,l).AND.YHIGH.EQ.FNORML( 1,2) )GO 
1TO  153 

152  COKTINUF 
IFLAG=C 

IF(ICOUNT.LE.NTEMP)GO    TO    201 
GC    TO    154 

153  NTEMP=NTEMP*1 
INTLVP(NTEMP)=IJKTST 
IARRAYU,IJK,9)  =  -IJKTST 
GO    TO    152 
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154  CONTINUE 

I JK=LPNTR+1 

RLNGTH=1.E6 

DP    155    I=1,INRSCT 

IJK=IJK*1 

IJ  KT  ST  =  T  ARRAY  (  1,  UK,  9) 

IFUJKTST.LT. 0  )GO    TO    155 

ALSEG=FNORML(I ,l)-XLOW 

BLSEG=FNOPML( I,2)-YLOW 

TLNGTH  =  ABSULSEG)*ABS<BLSEG) 

IF(TLNGTH-RLNGTH) 156,157,155 

156  RLNGTH=TLNGTH 
ISEGJ=IJKTST 
NXTINT=IJK 
MULTPL=1 
NI=I 

GO    TO    155 

157  IF(IFLAG.EQ.O)MULTPL=MULTPL-H 

155  CONTINUE 

I  FACE  1  =  1  ARRAY ( 1, ISEGJ,11) 
IFACE1=IABS( IFACE1 ) 
IFACF2=IARRAY(2,ISEGJ,11) 
IF(MULTPL.GT.l )GO    TO    162 
165    CONTINUE 

ITSTNP=IWRKNR( 1) 

IFUARRAYC1,  I FACE1 ,8 ) .LT.O )GO    TO    160 

CALL  DELETE! I WRKNR  ,  I FACE1 ) 

IF( ITSTNP.NE. IWRKNRt II )G0  TO  159 

IWRKNRd  )=IWRKNR(1)+1 

IWRKNR(ITSTNR+2I=IFACE1 

CALL  0ELETE(IWRKNR,IFACE2) 

GO  TO  161 

159  IFUARRAYC  1,  IF ACE2.8) .LT.O IGO    TO    161 
IWRKNR(ITSTNR*1)=IFACE2 
IWRKNR<1)=IWRKNR<1 )  +  l 

GO    TO    161 

160  CALL  DELETE( IWRKNR, IFACE2 ) 
IF(ITSTNR.NE.IWRKNR(1))G0  TO  161 
IWRKNR (1)=IWRKNR( 1)*1 
IWRKNR(ITSTNR*2)=IFACE2 

161  IARRAY<1,NXTINT,9)=-ISEGJ 
IFUDRAW.EQ.l.AND.IWRKNRC 1 I.NE.01GO    TO    304 
IFUDRAW.EQ.O.AND.  IWRKNR!  1  ).  EQ.O  )G0   TO    305 

168    IC0UNT=IC0UNT-1 

IFUCOUNT.LE.NTEMPIGO    TO    201 
MULTPL=MULTPL-1 
IF(MULTPL.LE.OUFLAG=0 
GO    TO    154 

304  XEND( JDSPLY)=FNORML(NI ,1) 
YEND( JDSPLY)=FN0RML(NI,2) 
CALL  WINDOW 

IDRAW=0 
GO  TO  168 

305  JDSPLY=JDSPLY+1 

X  START (JDS PL Y) =FNORML < NI , 1 1 
YSTART(JDSPLY)*FN0RML(NI,2) 
IDRAW=1 
GO  TO  168 

162  CONTINUE 

MULTIPLE     INTERSECTIONS 
IRPT=1 

I SCT  ND=  I AR  R AY  (  1 ,  I  S  EGJ  ,  9 ) 
XINSCT=FNORML(NI ,11 
YINSCT=FN0RML(NI,2) 

163  XSEGJ=ARRAY( ISCTND,5) 
YSEGJ=ARRAY( ISCTND,6) 

IF(XSEGJ.E0.XINSCT.AND.YSEGJ.EQ.YINSCT)GO    TO    166 
IF  URPT.EQ.2)G0    TO    165 

164  ISCTND=IARRAY(2,ISEGJ,9) 
ISCTND=IABS( ISCTND) 
IRPT=2 

GO    TO    163 
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166  IFLAG=1 
XLEFT=XINSCT-.CC1*AAL 
XP  IGHT=XINSCT+.001*AAL 
YL EF T=Y I NSCT-. 00 1*BBL 
YP  IGHT  =  YINSCT«-.C01*BBL 

167  IF  (IPPT.EQ.l ) IHIGHE=IARRAY(2, ISFGJ, 9) 
IF  (I  PPT.  EC?)  IHIGHE=IARRAY<1,  ISEGJ»9) 
IHIGHE=IABS( IHIGHE > 

XTEST=XINSCT+.001*(ARRAY< I HIGHE , 5 ) -X  I  NSC T ) 
YTEST=YINSC1>.001* ( ARRAY ( I  HI GHE ,6 ) -Y I NSCT ) 
TEMP1=XLFFT*YRIGHT-XRIGHT*YLEFT 

AL=TRISNS( XTEST,YTEST,XLEFT,YLEFT, XR IGHT , YR IGHT, TEMPI ) 
IF(ABS(AL)  .LT. 1.0E-8)GO  TO  170 
IF (AL.LT.G.IGO  TO  161 
GO  TO  165 

170  CONTINUE 
ITSTNP=IWRKNR(1) 

CALL    DELETE( I WRKNR , I FACE1 ) 

IF( ITSTNR.NE. IWRKNR( 1) )GO    TO    171 

IWRKNRd  )=  ITSTNR+2 

I WRKNR < ITSTNR*2)=IFACE1 

IWRKNP< ITSTNR*3)=IFACE2 

GO  TO  161 

171  CONTINUE 

CALL  DELETE! IWRKNR , IFACE2 ) 

GO  TO  161 
306  XENDt JDSPLY)=XHIGH 

YEND< JOSPLY)=YHIGH 

CALL  WINDOW 

GO  TO  1C6 
2~1  CONTINUE 

IF(NTEMP.EQ.O)GO  TO  103 

XNEAR=XHIGH 

YMEAR=YHIGH 

DO  2C3  J=l .3 

203  TEMPIN(J)=ARRAY(LHtGH, J) 
DPTHNR=ARRAY(LHIGH,4) 
CALL    TSTNNP 

1^3    CONTINUE 

IF(IDRAW.EQ.1)G0  TO  3C6 
106    IF(IARPAY(2,LHIGH,13).NE.0)G0    TO    204 

I  ARRAY (1,LHIGH,13)=IWRKNR<1) 

IARRAY(2,LHIGH,13)=JPNTR+1 

IFUWRKNRC  1).EQ.0)G0    TO    204 

IEND=IWRKNR(1)+1 

DO    202    J=2fIEND 

JPNTR=JPNTR+i 

LSTBFC(JPNTR )=IWRKNR< J) 
202    CONTINUE 

204  IARPAY(2t IL,9)=-LHIGH 
114  CONTINUE 

104  CONTINUE 
RETURN 

ENTRY  DATSTR 

IEND=(N-1) /40 

DO    501    NPT=1.IEND 

ISTRT=(NPT-l)*40-i-l 

IFINl=ISTRT+39 

IFIN=MINO(  IFINltN) 

WRITE < 6,550) (I  .  (ARRAY < I, J) tJ=l,6) , I ARR AY < 1 , 1  ,7  ) , 
1( IARRAY(Kf  I,13i,K=l,2),I=ISTRT, IF  IN) 
501    CONTINUE 

IEND=( N-l) /64«-l 

DC  5C3  NPT=1,IEND 

ISTRT=(NPT-l)*64*l 

IFIN1=ISTRT*63 

IFIN=MINC( IFINltN I 

WRITE 16, 55 5) (It H I  ARRAY (J, I , K ) , J=l  ,2 ) t K=8 , 12 ) , 1= I STRT, 
1  IF  IN  ) 
503    CONTINUE 
5  50    FORMAT (1 HI ,8 </), 1 5X ,• COLUMN1 f5X,  •  1  •  1 10X, »2 • 1 10X, • 3« t 
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11CX, «A',1( X, »5',10X,'6',8X,'7' ,6X,'13' ,/!5X,'  I  DENT*  , 
2  3X , 'THREE-DIMENSIONAL    COORD IN ATES • , 5X , 'DEPTH', 5X, 
3'PICTUPE    PLANE    COORD'  ,  IX,  •  CCV/CVX'  ,  IX  ,  'NATURE  •  ,A^  (  /15X 
A,  13,  2X,6F1  1.4,  3X,  I  2, AX,  12,13)  ) 
555    FORMATdHl,       / //l  5X,  •  COLUMN' ,  AX  ,  »8  •  ,  10X  ,  •  9  • ,  9X  ,  •  10  • , 
19X,'11'.9X,»  12',  /15X,'  IDE  NT'  ,2X.'F  ACES'  ,6X,«  LINE    END'  , 
2'     POINTS', 5X, •  INTERSECTING    SURFACES ' , 6A( / 1 5X, I  3, 2X , 21  A 
3,3X,2IA,3X,2I4,3X,2I4.3X,?I4)) 
WPITE<  6,56CMLSTFAC(I  J  ,  I  =  l,LSPNTR) 
WRITE(6,57C) (LSTBFC(  I), I=1,JPNTR) 
IEND=JDSPLY/6A+1 
DO    5C2    J=1,IEND 
ISTRT=(J-1 )*64+l 
IFINl=ISTRT+63 
IFIN=MINC( IFIN1,JDSPLY) 

WRITE (6, 580)  (X  START ( I ),YSTART(  I),XEND( I),YEND( I ), 
1I=ISTRT,IFIN) 
502  CONTINUE 

560  FORMAT (/////// /Al X, • LSTFAC «,/5(/15X, 5  I  5,  5X,5 15) ) 
570  FORMAT (//A  IX, • LSTBFC • , /5( / 1 5X , 51 5 , 5X , 5 1  5 ) ) 
580  FORMATdHl  ,///,37X, 'VISIBLE  L  INES  '  , //2  IX,  •  XSTART  •  ,  6X, 
2'YSTART' ,12X,«  XEND' ,8X,'YEND'  ,64(/15X,2F12.6,5X, 
32F12.6)) 
PFTURN 

ENTRY    ALTER 

NPNTRA=NPNTR 

DO    A71     II=1,LPNTR 

MIRR0R=1 

LL0W=IARRAY(1,  11,9) 

IFILLOW.LT. 0)GO  TO  A71 

IF (ARRAY (L LOW, A) .GT.C. )MIPROR=MIRROR* 1 

LHIGH=IARRAY(2 ,11,9) 

IF(ARPAY(LHIGH,4) .GT.O. ) MIRROR=MI RROR+2 

GO    TO     (A71.A81 ,A82,A72), MIRROR 
A72    IARRAY(l,lf,9)=-LLCW 

GO    TO    A71 
481    LPCINT=LLOW 

HPCINT=LHIGH 

GO    TO    A83 
A82    LPCINT=LHIGH 

HPOINT=LLOW 
A83    CONTINUE 

DO    A85    1=1 ,3 

AA(I )=ARRAY(LPOINT,I) 
A85    BB(I )=ARRAY(HPOINT,I) 

CALL    PIERC(OBSPOS(1),08SPOS(A),OBSPOS(7),AA,BB,PP) 

NPNTPA=NPNTRA+1 

DO  A86  1=1,3 

ARRAYl NPNTRA, I  )=PPU) 
A86  ARRAY (NPNTRA. I +3) =HMA TRX( A, I ) 

FCTR  =HMATRX(A,A) 

DO  ^87  1=1,3 

IJ=I+3 

FCTR    = FCTR ♦ ARRAY (NPNTRA, I )*HMATRX( I, A) 

DO    A87    J=l  ,3 
A8  7    ARRAY (NPNTRA, IJ )= ARRAY (NPNTRA, IJ ) +ARRAY( NPNTRA, J )* 
1HMATRX(J,I ) 

DO    A88    1=5,6 
A88    APRAY(NPNTRA, I )= ARRAY (NPNTRA, I )/FCTR 

MIRR0R=MIRR0R-1 

I  ARRAY (MIRROR, II,9)=NPNTRA 
A71    CONTINUE 

IF (NPNTRA. NE.NPNTR)LRESTR=1 

RETURN 

END 
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SUBROUTINE    QSCRB  1  (  N,  ARRAY  ,  I ARR  AY.FNURML  ,  L  STF  AC  ,L  STBFC  , 
HVvRKNR,INTLVR,  JGSET,  XSTART,YST ART , XEND, YEND, / JDSPLY/ ) 

COMMON /SOFB/ ALPHA, BETA, GAMMA, PS  I , THE T A, PHI  ,OBJMV(3) . 
1VI  EWMVO)  , FOCUS, Y OFF, ZOFF,SCLE,  HMATRX(4,4)  ,OBSPOS(  12) 

COMMON    /DSCRB/LPNTR,JPNTR,IFACE,TEMPIN(9), I CROSS, 
1INRSCT,IC0UNT,NTEMP,CURSEG,LL0W,LHIGH,XL0W,XHIGH,YL0W, 
2YHIGH,XNEAR,  YNEAR,  DPTHNR  ,     AA(  3  )  ,  BB  (  3  )  ,CC  (3  )  ,  PP  (  3  )  ,  AA|_  , 
3BBL,LRESTR 

INTEGER    TPNTR.CURSEG.TEMP 

DIMENSION    ARRAY (N.  13)  ,FN0RML(N,3)  ,LSTFACU  ),  L  STBFC  (1  ) 

INTEGER*2     IARRAY( 2.N, 13) 

DI MENS  ION    IWRKNRC1 ),INTLVR<1), JGSET(l) 

01  MENS  ION    XSTARTI 1) ,YSTART(1) , XENU(l) ,YEND(1 ) 

DIMENSION    AAA(3),BBB( 3) . A AAE( 3 ) , BBBE< 3),TSTPNT(4) 

TRISNS(AC,  BO,A1,B1,A2,B2,CONST)  =  AO*BH-A2*BO-AO*B2- 
1A1*BO+CONST 

ALPHA=0. 

BETA=0. 

GAMMA=C.r 

PSI=C. 

THETA=0. 

PHI=0. 

YOFF=C  . 

ZOFF=0. 

F0CUS=1.5 

SCLE=0.5 

OBJMVt 1)=-A3. 

0RJMV(2)=C  • 

0PJMV(3)=C. 

VIEWMV(1)=0. 

VIEWMV(2)=C. 

VIEWMV(3)=0. 

RETURN 

ENTRY    VRTNTR 

MRPNTR=LPNTR*1 

ISTPT=MRPNTR+1 

86  NBR  =  C 

DO    92       IJ=1,LPNTR 
IFACl=IARRAY(i,IJ,  11) 
IFAC2=IARRAY(2.IJ,ll) 
IFAC1=IABSUFAC1) 

IF(IARRAY(1,IFAC1,8).LT.C.AN0.IARRAY( 1 ,  I  FAC2, 8 ) .L T .0. 
10R.IFAC1.EQ.IFAC2)G0    TO    92 
LL0WE=1APRAY(1, IJ,9) 
LL0WE=IABS(LL0WE) 

IF(ARRAY(LL0WE,4) .GT.l. )G0    TO    92 
98    LHIGHE=IARRAY(2,  IJ.9) 
LHIGHE=IABS(LHIGHE) 
X1=ARRAY(LL0WE,5) 
X2=ARRAY(LHIGHE,5) 
XMAX=AMAXHX1,X2) 
XMIN=AMINHX1,X2) 
IF(XMAX-XL0W)92,97,87 

87  IF(XMIN.GE.XL0W)G0  TO  92 

88  Y1=ARRAY(LL0WE,6) 
Y2=ARRAY(LHIGHE,6) 
YMAX  =  AMAX1(Y1,  Y2) 
IF(YMAX.LT.YLOW)GO  TO  92 
TEMP1=X1*Y2-X2*Y1 
YMAX=YMAX+1. 

AL=TRISNS(XL0W,YL0W,X1,Y1,X2,Y2,TEMP1) 
AH=TRISNS(  XLOW1YMAX,Xl.YlfX2,Y2f TEMPI) 
IF(AL.LT.O..ANO.AH.LT.O..OR.AL.6t.O.. AND.AH.GT.O. )  GO 

1T0  92 

MARK  POLYGONS  FOR  INTERCEPT 


IEFAC1=IAPRAY( 1, IJ, 
IEFAC1  =  IABS( IEFAC1  ) 


11) 


203 


IEFAC2=IARRAY(2,IJ,11) 

IFUAPRAYd,  IEFAC1,8).LT.C)G0    TO    90 

DC  89   IK=ISTRT,MRPNTR 

IF(  ISTRT.GT.MRPNTR)GO  TO  89 

TEMP=IARRAY(1, IK, 11) 

IF(TEMP.EQ.IEFAC1)G0  TO  95 

89  CONTINUE 
MFPNTR=MRPNTR+1 
IARRAY(1,MRPNTR,11)=IEFAC1 
IARRAY(2,MRPNTR,11 )=1 

90  IF(IARRAY( 1. I EFAC2 , 8 ) .LT .C )    GO    TO    92 
DO    91       IK=ISTRT,MRPNTR 

IF (ISTRT.GT.MRPNTR)GO    TO    91 
TEMP=I ARRAYC1, IK, 11) 
IF(TEMP.EQ.IEFAC2)GO    TO    96 

91  CONTINUE 
MPPNTR=MRPhTR-*l 
IARRAY(l,MRPNTR,ll)=IEFAC2 
IARRAY(2tMRPNTR,ll)=l 

92  CONTINUE 
IARRAY(2,LLOW,13)=JPNTR*-l 
DO    94       IJ=ISTRT,MRPNTR 
IF(ISTRT,GT.MRPNTR)GO    TO    94 

IFUARRAYI2,  IJ , 1 1 )- IARRAY ( 2,  IJ,  11 ) /2*2 .EQ. 0)GO    TO    94 
IFACE=IARRAY(1 ,IJ,11) 
DO    93      J=l,3 

93  TEMPIN(J)=ARRAY(LLOW, J) 

CALL    PLNLINl N, ARRAY, I  ARRAY, I  FACE, LSTF AC, OBSPOS , TEMPI N, 
1PP) 
DVRTEX=ARRAY(LL0W,4) 
IF(ABSIDVRTEX) .LT.0.10)GO    TO    99 
PPX=DEPTH(PP<1),PP(2),PP<3) ) 
IF<ABS(PPX-DVRTEX).LT..01     )GO    TO    94 
IF(PPX.LT,DVRTEX.OR.PPX.GT.0.005)GO    TO    94 
C  ENTER    SET    OF    BLOCKING    FACES 

101    JPNTR=JPNTR+1 

LSTBFC(JPNTR)=IARRAY( 1,IJ,11) 
NBR=NBR-H 

94  CONTINUE 
IARRAY(l,LLOW, 13)=NBR 
RETURN 

9  5    IARRAY(2,IK,ll)=IARRAY(2,IK,ll)+l 
GO    TO    9C 

96  IARRAY (2, IK, 11 )  =  I ARRAY <2, IK,  1 1 ) +1 
GO  TO  92 

99  Y=ARRAY(LLOW,2 )-OBSPOS(2) 

IF(ABS<Y).LT..l)GO  TO  IOC 

IFIY.GT.C. .AND.PP(2).LT.0..OR.Y.LT.0..AND.PP(2).GT.C. ) 
1GO  TO  94 

IF(ABS(Y-PP(2) ).LT..l)GO  TO  94 

GO  TO  101 
100  Z=ARRAY(LLOW,3)-OBSPOS<3) 

IF(ABS(Z).LT..1)G0  TO  94 

IFU.GT.C.  .AND.PP(3),LT.0,.OR.Z.LT.0..AND.PPI3).GT.C.  ) 
1GO  TO  94 

IF(ABS(Z-PP(3) ).LT..l)GO  TO  94 

GO  TO  101 

97  IF(XMAX.NE.XMIN)GO  TO  88 
ARRAY(LLOWE,5)=ARRAY(LLOWE,5)-.00O01 
ARRAYtLHIGHE,5l=ARRAY(LHIGHE,5)+.00001 
MRPNTR=LPNTR+1 

GO  TO  86 
C 

ENTRY  TSTNNP 
C  TEST  POINT  NEAR  TO  KNOWN  POINT 

C 

C  G  IS  THE  SET  OF  ON  VIEW  FACES  OF  WHICH  THE  NODE 

C  BEING  TESTED  IS  A  MEMBER 

C  J  IS  THE  SET  OF  ON  VIEW  FACES  BELONGING  TO  THE 

C  INTERSECTING  SEGMENTS 

C  FIND  SET  OF  FACES  WHICH  MAKE  UP  J  AND  G 

JGSET( 1)=0 
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115  ISEGJ=INTLVR(NTEMP) 

I  FACE  1  =  1  ARRAY ( 1, ISEGJ, 11) 

IF ACE1  =  IABS( IFACE1  ) 

IFACE 2  =  1  ARRAY! 2, ISEGJ, 11) 

IF(IARRAY(  1,  IFACE1.8)  .LT.OGO  TO  113 

CALL  MERGF(JGSET, IFACE1) 

113  IF (IARRAY(  1, I  FACE  2,8) . LT. 0 )  GO  TO  114 
CALL  MERGE (JGSET, IFACE2) 

114  NTEMP=NTEMP-1 
IF(NTEMP.GT.O)GO  TO  115 
IENO=JGSET (11*1 

DO  117  IT=2,IEND 

IFUEND.LE.l  )GO    TO    117 

IFACE=JGSET( IT) 

NSEGS=IARRAY( 1 , IF  ACE, 8) 

TPNTRMARR AY ( 2 , I  FACE, 8) 
C  TEST    NEAR    POINT    WITH    RESPECT    TO    SETS    J    AND    G 

C  SEARCH    FACE    I  FACE    FOR     INTERSECTION 

121  LLOWE  =  LSTFAC(TPNTR*NSEGS-l  ) 
LHIGHE=LSTFAC(TPNTR) 
ICROSS=C 

DC    122    IK=1,NSEGS 

Xl=ARRAY(LLOWE,5) 

X2=ARRAY(LHIGHE,5) 

XMAX=AMAX1 (XI, X2) 

XMIN=AMIN1(X1,X2) 

IF(XMAX-XNEAR) 12  2,  123,  124 
124  IF(XMIN.GE.XNEAR)GO  TO  122 
126  Y1=ARPAY(LL0WE,6) 

Y2=ARRAY(LHIGHE,6) 

YMAX=AMAX1 (Yi,Y2) 

IF(YMAX.LT.YNEAR)GO    TO    122 

TFMP1=X1*Y2-X2*Y1 

YMAX=YMAX+1 

AL=TRISNS(XNEAR,YNEAP,XI,Y1,X2,Y2,TEMP1) 

AH=TRISNS(XNEAR,YMAX,X1,Y11X2,Y2,TEMP1  ) 

IFCAL.LT.C. . AND.AH.GT.O..OR.AL.GT.O.. AND.AH.LT.^. ) 
1ICR0SS=ICR0SS+1 

LLOWE=LHIGHE 

LhIGHE  =  LSTFAC(TPNTR4-IK) 

122  CCNTINUE 
GO  TO  116 

123  IF(XMAX.NE.XMIN)GO  TO  126 

ARRAY (LLOWE, 5) -ARRAY! LLOWE, 5) -.00001 
ARRA Y ( LH IGHE , 5 ) =ARRAY ( LHIGHE , 5 F+. OOOOl 
GO  TO  121 

116  IF(ICROSS-ICROSS/2*2.NE.C)GO  TO  118 
CALL  DELETE! I WRKNR  ,  IFACE) 

GO  TO  12C 

118  CCNTINUE 

C  POINT    LIES    INSIDE    POLYGON-SEARCH    SET 

IEND=IWRKNR(1)*1 
DO    119    IK=2,IEND 
IFUEND.LE.DGO    TO    119 
IFIIFACE.EO. IWRKNR(IK) ) GO    TO    117 

119  CONTINUE 

CALL    PLNLININ, ARRAY, I  ARRAY, I  FACE, LSTF AC, OB SPOS, TEMPI N, 
1PP) 
DPTHPP=DEPTH(PP(1) ,PP(2) ,PP(3) ) 
IF(DPTHPP.LT.DPTHNR)    GO    TO    117 
I  WRKNR  (I  WRKNR  <  1 ) -»-2  )=  I  FACE 
IWRKNR(1)=IWRKNR( 1)  +  1 

120  ICCUNT=IC0UNT-1 

117  CONTINUE 
RETURN 

C 

ENTRY    LNTRSC 
C  THIS    SUBROUTINE    CALCULATES    THE     INTERSECTION    OF    ALL 

C  SEGMENTS    WITH    A    GIVEN    SEGMENT     IN    THE    PICTURE    PLANE 

IXPNTR  =  LPNTRU 

JGSETI 1)=0 

INRSCT=C 
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ICVRLP=0 

IFACE1=IAPRAY(  1,CURSEG,11) 

IFACE1=IABS( IFACE1) 

I  FACE 2  =  I ARRAY( 2,CURSEG,11) 

IF(ABS(AAL ).LT..0001)GO  TO  69 

CRNTSL=BBL/AAL 
61  TEMP2=YLOW-CRNTSL*XLOW 

TEMP3=XLOW*YHIGH-XHlGH*YLOW 

Xl=ARRAY(LLOW, 1) 

Y1=ARPAY(LLGW,2) 

Zl=ARRAY(LLOW,3) 

X2=APRAY(LHIGH,1  ) 

Y2=ARPAY(LHIGH,2) 

Z2=ARRAY(LHIGH,3) 

TEMP1=X1*Y2-X2*Y1 

TEMP5=Y1*Z2-Y2*Z1 

TEMP6=Z1*X2-Z2*X1 

DC    7C2    1=1 ,3 

AAA(  I  )=ARPAY(LLOW,  I) 
702    BBB( I)=ARPAY(LHIGH,I ) 

IEND=LPNTR 

DO    67    IEXAM=1, IEND 

IFAC1=IARRAY(1 ,1  EX  AM,  11) 

IFAC1=IABS(IFAC1) 

IFAC2=IAPRAY(2,IEXAM,  11) 

IF ( I FAC1. E0.IFACE1.OR.IFAC2.EQ.IFACE1.OR. IFAC1.E0. 
1IFACE2.0R. IFAC2.EQ.IFACE2.OR.1FAC1.E0.IFAC2.OR. 
21  ARRAY  (1,1  F  AC  1  ,  8  )  .  LT  .0  .  AND.  I  ARR  AY  {  1 ,  IF  AC  2,  8)  .LT.O  ) 
1G0    TO    67 

LL0WE=IARRAY(1,IEXAM,9) 

LLOWE=IABS(LLOWE) 

IF (ARRAY(LL0WE,4) .GT.l. )G0  TO  67 

LHIGHE=IARRAYt2, IEXAM,9) 

LHIGHE=IABS(LHIGHE) 

XL0WE=ARPAY(LL0WE,5) 

Yt0WE=ARRAY(LL0WE,6) 

XHIGHE=ARRAY(LHIGHE,5) 

YHIGHE=ARRAY(LHIGHE,6) 

TEST    FOP    INTERSECTION    USING    TRI-SENSE    TEST 

AL=TRISNS(  XL0WE,YL0WE,XL0W,YL0W,XHIGH.YHIGH,TEMP3) 

AH=TRISNS(XHIGHE,YHIGHE,XL0W,YL0W,XHIGH,YHIGH,TEMP3) 
ARE    POINTS    COLLINEAR 

IMDAB1=1 

IF(ABS(AL) .LT.1.E-5)INDAB1=INDABH-1 

IF  UBS (AH) .LT.1.E-5)INDAB1=INDAB1*2 

GO    TO    (611, 613,614, 72), INDAB1 

613  ICOMN=LLOWE 
IDIFF=LHIGHE 
GO    TO    612 

614  ICCMN=LHIGHE 
IDIFF=LLOWE 
GO    TO    612 

611  IFIAL.LT.C.  AND.AH.LT.0..OR.AL.GT.0..AND.AH.GT.0.  ) 
1G0    TO    67 

612  TEMP4=XL0WE*YHIGHE-XHIGHE*YL0WE 
AL=TRISNS(XL0W,YL0W,XL0WE,YL0WE,XHIGHE,YHIGHE,TEMP4) 
AH=TRISNS( XHIGH,YHIGH,XL0WE,YL0WE,XHIGHE,YHIGHE,TEMP4) 
IFUNDAB1.NE.1  )G0    TO    615 

INDAB2=1 

IF(ABS(AL) .LT.1.E-5)INDAB2=INDAB2*1 
IF(ABS(AH) .LT.1.E-5)INDAB2=IN0AB2*2 
GO  TO  (615,616,617) ,INDAB2 

616  HINSCT=XL0W 
VINSCT=YLOW 
GO  TO  701 

617  HINSCT=XHIGH 
VINSCT=YHIGH 
GO  TO  7C1 

615  IF(AL.LT.C..AND.AH.LT.O..OR.AL.GT.O..AND.AH.GT.O. ) 
1G0  TO  67 

IFdNDABl.NE.DGO    TO    620 
701    CONTINUE 
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PC  70  3  1=1,3 

AAAF( I  )=APPAY( LLOWE,I  ) 
7?3  BPPE1 I  )=ARRAY(LHIGHE,  I ) 

CALL  PIERC ( AAA,OBSPOS<10 ),BBB,AAAE,BBBE,PP) 

IXX=1 
704  Gr  TO  (711, 712, 713, 67), IXX 
711  AL=TRI SNS( OBSPOSt 10) ,CBSPQS( 1 1  )  ,  X  1  ,  Y 1 , X2 , Y2 , TEMP  1  ) 

AH=TRISNS(  PP (1),PP(2), XI, Y1,X2,Y2, TEMPI) 

GO  TH  71 A 
7  12  AL=TRI SNS( CBSPCS( 11) ,nBSPnS(12 ),Y1,Z1,Y2,Z2,TEMP5) 

AH=TRISNS( PP(2),PP(3),Y1,Z1,Y2,Z2,TEMP5) 

GC  TO  714 

713  AL=TP ISNS(CBSPOS( 12) . CBSPOSC  10)  , Z 1  ,X 1 , Z2 , X2 , TEMP6 ) 
AH=TRISNS< PP(3 ),PP(1) , Z 1, X 1 , Z 2 , X2 , TEMP6 ) 

714  IXX=IXX+1 

IF(ABS(AL) .LT.FOCUS)GO  TO  704 

IF  (AL.LT.C  ..  AND.AH.GT.O.  .OR  .  AL  .  GT  .  0.  .  AND  .  AH.  LT.r  .  )  GO 
1TC  67 
626  AALE=XHIGHE- XLOWE 
BPLF=YHIGHF-YLOWE 
IF (ABS(AALE) .LT..0001 )G0  TO  69 
EXAMSL=BBLE/AALE 
IF (INDAP2.NE.1 )G0  TO  64 

6  2  HINSCT  =  (  TFwc»2  +  EXAMSL*XLCWE-YL0WE)/  ( EX AMSL-CRNTSL ) 

63  VINSCT=TFMP?4-CRNTSL*HINSCT 

64  CPNTINUF 

I XPNTP=I XPNTR+1 
INRSCT=INRSCT+1 
FKCRMH INRSCT, 1)=HINSCT 
FKCPML  (  INRSCT,2)=VINSCT 
I  ARRAY (1,  IXPNTR,9)=IEXAM 
IF(IOVRLP)     31,67,76 

620  IF(JGSFT( 1 ).EQ.O)GO    T0    622 
JFND=JGSFT (1 )+l 

DC    621     ISR=?,JEND 
IF(ICOMM.E0.JGSET( ISR) )G0    TO    625 

621  CONTINUE 

622  JGSET( 1)=JGSET(1)*1 
JGSET( JGSET( 1)*1 )=ICOMN 
INTLVR(JGSFT(1 ) )=IDIFF 
GO  TO  67 

625  XC=APPAY(  IDIFF,5) 

YC=ARPAY(ICIFF,6) 

MARK=INTLVR( ISR-1) 

XT=APRAY(MARK,5) 

YT=ARRAY(MARK,6) 

AL=TRISNS(  XO,YO,XLOW,YLOW,XHIGH,YHIGH,TEMP3> 

Ah=TPISNS(XT,YT,XL0W,YL0W,XHIGH,YHIGH,TEMP3) 

IFUL.l  T.C..AND.AH.LT.0..OR.  AL.GT.O. .AND.AH.GT.O. ) GO 
lTf    621 

GC    TO    7C1 
69    CPNTSL  =  Kf  CO. 

GO    TO    61 
69    EXAMSL=1C00). 

GO  TO  62 
C  OVERLAP  HAS  BEEN  ESTABLISHED 

C  CHECK  FOR  END  POINTS  OF  COMMON  SEGMENT 

72  IF(CRNTSL.GT.100°. )G0  TO  77 

RIGHT=AMIN1(AMAX1(XL0W,XHIGH) , AMAX 1 ( XLOWE , XH IGHE ) ) 

A I  EFT=AMAX1(  AM  INK  XLOW , XH I GH ) , AMI Nl  (  XLOWE  ,  XH  IGHE  )  ) 

IFIRIGHT-ALEFT ) 67, 74,75 

75  ICVPLP=1 

74  HINSCT=PIGHT 
GC  TO  63 

76  HINSCT=ALEFT 
ICVRLP=C 

GO  TO  6? 
C  SLOPE  IS  VERY  HIGH  USE  VERTICAL  COORDINATES 

7  7  RIGHT=AMIN1( AMAXK  YLOW,YHIGH) , A MA  X 1 ( YLOWE , YHIGHE) ) 

AL  EFT  =  AMAX  1(  AM  I  Nl  (  YLOW  ,  YH  I  GH  )  ,  AMINKYLOWE,  YHIGHE)  ) 
IF (RIGHT-ALEFT)67, 79,80 
80  I0VRLP=-1 

207 


79    VINSCT=RIGHT 

HINSCT=XLOW 

GO  TO  64 
81    VINSCT=ALEFT 

IOVRLP=0 

Gf  TO  64 
67    CONTINUE 

RETURN 

ENTRY    WINDOW 
IX1  =  XSTARTUDSPLY) 
IX2=XEND(JDSPLY) 
IY1=YSTART(JDSPLY) 
IY2=YEND( JOSPLY) 

IFUX1.GE.  LAND.  1X2. GE.DGO    TO    461 
IFUX1.LE. -LAND.  1X2. LE.-ilGO    TO    461 
IFUY1.GE.  LAND. IY2. GE.DGO    TO    461 
IF (IY1.LE.-1.AND.IY2.LE.-1)G0    TO    461 
IAGN=1 

X=XSTART(JDSPLY) 
Y=YSTART(JDSPLY) 
IX=IX1 

IY=IY1     -       p        * 
401    IF(IX)41i,412,413 

411  VINSCT=Y*CRNTSL*(-1.-X) 

421  IF(ABS(VINSCT).LE.l.)GO    TO    426 

423  IF(IY)4?4,461,425 
426    XTEMP=-1. 

GO    TO    447 

424  HINSCT=X-M-1.-Y)/CRNTSL 
YT  EMP= —1 • 

422  IF(ABS(HINSCT)  .GT.1JGO    TO    461 
XTEMP=HINSCT 

GO    TO    45C 

425  HINSCT=X-M1.-Y  )/CRNTSL 
YTEMP=1. 

GO    TO    422 

412  IF(IY)424,432,425 
432    XTEMP=X 

YTEMP=Y 
GO  TO  450 

413  VINSCT=Y*CRNTSL*<1.-X) 
IF(ABS(VINSCT).LE.l.)GO  TO  446 
GO  TO  423 

446  XTEMP=1. 

447  YTEMP=VINSCT 

450  GO    TO    <451,460),IAGN 

451  X=XEND(JDSPLY) 
Y=YEND(JDSPLY) 
IX=IX2 
IY=IY2 
IAGN=2 

X  START <JDSPLY)=XTEMP 
Y START (JDSPLY)=YTE MP 
GO    TO    401 

460  CONTINUE 
XEND(JOSPLY)»XTEMP 
YENDUDSPLY)=YTEMP 
RETURN 

461  JDSPLY=JDSPLY-1 
PETURN 

END 

SUBROUTINE  PLNL IN ( N, ARRAY, I  ARRAY, I  FACE ,LSTFAC , OBSPOS, 
1TEMPIN,PP) 

INTEGER*2  IARRAY 

DIMENSION  ARRAY(N,13),IARRAY(2,N,13).LSTFAC(  1), 
10BSPOS(l),TEMPIN(l),AA(3),BB<3),CC(3),PP(l ) 

NTTL=IARRAY(1. I  FACE, 81 

LOC=IARRAY(2, IFACE.8) 

IP0INT=LSTFAC(LOC*NTTL-l) 
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DO  98   J  =  l,3 

98  AA(J)=ARPAY( IPCINT, J) 
IPOINT=LSTFAC( LOC I 

OP  Q9   J=l ,3 

99  BB(J)=APPAY( IPCINT, J) 
IPCINT=LSTFAC(  LOC+1) 

do  ice  J =1,3 

100  CC(J)=ARPAY( IPCINT, J) 

CALL  PIERC  (AA,BB,CC,OBSPUS,TEMPIN,PP) 

RETURN 

END 


SUBROU 

DIMENS 

c 

THI 

c 

PL 

c 

WH 

c 

TH 

c 

IN 

c 

TH 

c 

AP 

A=(P2( 

1PH2M 

B=(P2( 

1PK3)  ) 

C=(P?( 

ipi  (i  n 

C=-A*P 

Al  =PL2 

BL=PL2 

CL=PL2 

T=-( A* 

PP(1)= 

PP(2)= 

PP(3)= 

RETURN 

ENC 

TINE  PIERC(P1,P2,P3,PL1,PL2.PP) 

TON  PI (3) ,P2(3) ,P3(3) , PL  1 ( 3 ) . PL2 { 3 ) , PP ( 3 ) 

S  SUBROUTINE  CALCULATES  THE  INTERSECTION  HE  A 

ANE  DETERMINED  BY  POINTS  P1,P2,P3  AND  A  LINE 

ICH  CONTAINS  POINTS  PL1  AND  PL2. 

E  COORDINATES  OF  THE  INTERSECTION  ARE  RETURNED 

THE  ARRAY  PP 
E  DIRECTION  NUMBERS  OF  THE  NORMAL  TO  THE  PLANE 
E  A,  B,  C. 
2)-Pl(2))*(P3<3)-Pl(3))-(P2(3)-Pl(3))*(P3<2)- 

3)-Pl(3))*(P3(l)-PlU))-(P2m-Pl(l))*(P3(3)- 

i)-PK  1)  )*IP3(2)-Pl(2)  I-CP2I  21-PH2I  l*(P3ll)- 

1( 1)-B*P1(2)-C*PI(3) 

(l)-PLl(ll 

(2)-PLl(2) 

(31-PLK3) 

PLK  1)+B*PL1  (2)+C*PLK  3)+D)/(A*AL*B*BL+C*CL) 

AL*T+PL1  (1) 

BL*T+PL1(2) 

CL*T+PL1 (3) 


FUNCTION    DEPTH(X,Y,Z) 

COMMON /SDFB/ ALPHA, BET A, GAMMA, PS  I , THE T A, PHI  ,QBJVV(3) , 
LVIEWMVI3), F0CUS,Y0FF,Z0FF,SCLE,HMATRX(4,4) ,OBSPOS( 12) 

DEPTH=X*HMATRXU,1  )  +Y*HMATRX  (  2  ,  1  )  +  Z*HM  ATRX  (  3  ,  1  )♦ 
1HMATRXK,1  ) 

RETURN 

END 


SUBROUTINE    DEL ETE < L  I  ST , ITEM) 

DIMENSION    LIST(l) 

N=LIST(1  ) 

IEND=N*1 

DO    1     1=2,1  END 

IFUEND.EQ.i )GO    TO    1 

IFUTEM.EO.LISTU  )  )  GO    TO    2 

CONTINUE 

RETURN 

IFU.EG.  IEND)GO    TO    3 

LIST( I )=LIST( IEND) 

LISTd  )  =  N-1 

RETURN 

END 


SUBROUTINE    MERGE ( L  I  ST ,  ITFM ) 

DIMENSION    LIST(l) 

N=LIST(1 ) 

IF (N.EQ.C)GQ    TO    2 

IEND=N+1 

DO    1     1=2, IEND 

IFUTEM.EO.LISTU  )  )G0    TO    2 
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1  CONTINUE 
LIST(N*2)=ITEM 
LIST(l)=N+l 

2  CONTINUE 
RETURN 
END 

SLBPOUTINE  READCR(N,TEMPIN> 
DIMENSION  TEMPIN<3> 
IFIN.EQ.CJGO  TO  1 
READ(5,2)N 
RETURN 

1  READ(5,3XTEMPIN(  I  ),I  =  1,3) 
RETURN 

2  FCRMAT(IIIC) 

3  F0RMAT(3F2C6) 
END 

SUBROUTINE  CROSS(A,B,C) 

DIMENSION  A(3) ,B<3),C<3) 
C  THIS  SUBROUTINE  CALCULATES  THE  CROSS  PRODUCT 

C  A  X  B  FOR  3  DIMENSIONAL  VECTORS 

C( 1)=A(2)*B(3)-A(3)*B(2) 

C(2)=A(3)*B< 1)-AI  1)*B<3) 

C(3)  =  A(1 )*B(2)-A(2)*B(  1) 

RETURN 

END 

SLBROUTINE  LABEL 

COMMON /SDFB/ ALPHA, BET A, GAMMA, PS  I ,THETA,PHI  ,OBJMV(3)1 
1VIEWMV(3),F0CUS,Y0FF,Z0FF,SCLE,HMATRX<4,4)  ,OBSPOS(  12) 

WRITE (6,1) ALPHA, BET A, GAMMA, PSI,THETA, PHI, (OSJMV( I >, 
11= 1,3), (VI EWMV  (I ) ,I=l,3),YOFF,ZOFF,FOCUS,SCLE 
1  FORMAT (4XV*  ALPHA=',1F12.6,3X,'   BETA= • , IF  12 .6,9X, 
1'GAMMA=',1F12.6,/7X,'PSI=' ,  1F12.6,8X,'  THETA=' , IF  12.6, 
28  X,'    PHI=',1F12.6,/2X, 'OBJMV( 1 )= • , IF  12. 6 ,6X, 
3'0BJMV<2)=',1F12.6,6X,'0BJMV(3)=,,1F12.6,/1X, 
4'VIEWMV(1)=' ,1F12.6,5X,'VIEWMV(2)=' ,1F12.6,5X, 
5'VIEWMV<3)=' , 1F12.6,/3X,'Y0FF=',1F12.6,5X, •   ZOFF=«, 
61F12.6,5X,»FOCUS=' , 1F1 2.6 , 5X , • SCALE= • , IF  12  .6 ) 

WPITE(6,595)OBJMV( ll,OBJMV(2) ,OBJMV(3> , ALPHA, BET A, 
1GAMMA, V I EW  MV ( 1 ) , V  I EWMV ( 2 ) , V  I EWMV ( 3  ) 

WRITE ( 6,596>PSI,THETA,PHI,FOCUS,SCLE,YOFF,ZOFF 

595  FCRMAT(1H1,13{/) ,18X, 'PARAMETERS  FOR  THIS  VIEW1, 
1///15X, •OBJECT  POSITION  ( 1 )  • , 15X , F10 . 1 , 
2//15X,  'OBJECT  POSITION  ( 2  )  •  ,15X  ,F10. 1 , 

3//15X, 'OBJECT  POSITION  « 3 ) • , 15X, F10. 1, 
4//  15X,  'OBJECT  ANGLE  ALPHA' , 16X, F10. 1 , 
5//  15X, 'OBJECT  ANGLE  BETA'.  17X,F10.1, 
6//  15X, 'OBJECT  ANGLE  GAMMA* , 16X, F10. 1, 
7//  15X, 'OBSERVERS  POSITION  (!) •  ,12X  ,F10 . 1 , 
8//  15X, 'OBSERVERS  POSITION  ( 2  )  • , 12X,F 10. 1 f 
9//  15X, 'OBSERVERS  POSITION  ( 3  )  • , 12X, F10 . I ) 

596  FCRMATI/15X, 'OBSERVERS  ANGLE  PSI ' , 15X  ,F10. 1 , 
1//  15X, 'OBSERVERS  ANGLE  THETA • , 13X,F 10 . 1 , 
2//  15X, 'OBSERVERS  ANGLE  PHI • , 15X , F10 . 1 , 

3//  15X, 'FOCAL  LENGTH', 22X,F10.1, 
4//  15X, "SCALE* f29XtF10.1v 
5//  15X, 'HORIZONTAL  OFFSET' , 17X , F10  .  1 , 
6//  15X, 'VERTICAL  OFFSET' , 19X, F 10. 1 ) 

RETURN 

END 
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SUBROUTINE    ORAWIK  NL I NES , X  ST  ART , Y ST 4RT ,XENC,YEND,  IR) 

REAL*4    TITLEK  3  >  /  I  2HC  ARR  I  ER    (1)     / 

REAL*4    T ITLE2(3)/12HCARRIER     (2)     / 

RFAL*4    TITLE3( 3 ) / 1 2HC ARR I ER     (3)     / 

WEAL**.    T1TLEM  3  )  /  1  2HC  ARR  I  ER     (4)     / 

RFAL**    TITLE5(3)/12HCARRIER     (5)     / 

REAL    XWNDOWt 5) /3.  ,-3.  ,-3. ,3. ,3./ 

REAL    YWNDOW( 5) /3. , 3. ,-3.,-3.,3./ 

REAL*4  IDENT(5)/23HR.  B.  OESENS  -  BOX  D/ 

D I  MEMS  ION  XSTART{  1 ) ,YSTART<  1)  ,XEND(1) ,YEND<1) 

CALL  PLOTS 

CALL  PLOTU.,6.1-3) 

CALL  PLOT(XWNDOW( 1 ) ,YWNDOW( 1) ,3) 

DO  2  1=2,5 

CALL    PLOT( XWNDCW(  I  ) ,YWNOOW(  I)  ,2) 
2    CONTINUE 

DC    1     I=1.NLINES 

XSTARTd  J=XSTART(  I  )*3. 

YSTART (I  )  =  YSTART(  I  )*3. 

XFNDl I )=XEND( I )*3. 

YEND( I )  =  YFND( I  )*3. 

CALL  PLOT (XST ART (  t),YSTART(I),3) 

CALL  PLOT( XENDd) ,YEND{ I ) ,2) 
1  CONTINUE 

GO  TO  (15, 14,13,12,11  ),  IR 
21  CONTINUE 

CALL  SYMBOL(-3.C,5.3,C14,  I  DENT  fO  .  0  ,  2^  ) 

CALL  PL0T(-4. 0,8. 0,-3) 

CALL  PLOTE 

RETURN 

11  CALL    SYMBOH-1  .2  , -3  .4  ,0.28  ,  T  I  TLE1 ,0  .0  ,  12) 
GO    TO    21 

12  CALL    SYMBOH-1  .2  , -3  .4  ,0  .  28  ,T  I  TLE2  ,0  .0  ,  12) 
GO    TO    21 

13  CALL    SYMB0L<-1 .2 ,-3.4 , 0, 28 , TI TLE 3  ,0. 0  ,  12 ) 
GO    TO    21 

14  CALL    SYMBOL(-1.2,-3.4,0.28,TITLE4,0.0,12) 
GO    TO    21 

15  CALL    SYMB0L(-1 .2 , -3 .4 , 0.28, T  ITLE5 ,0 .0 ,  12) 
GO    TO    21 

END 

SUBROUTINE    DR AWVP < NL, X 1 , Yl .X2 , Y2 > 

D I  MENS  ION    X1(1),Y1(  1),X2( 1),Y2( 1) 

DIMENSION    DRAWdC  ,20C)  ,JXY(20C  ) 
C  COLUMN    DIMENSION    OF    DRAW    AND    DIMENSION    OF    JXY    MUST 

C  BE    GREATER    THAN    OR    EQUAL    TO       TWO    TIMES    THE    NUMBER 

C  OF    LIMES    TO    BE    DRAWN 

C  ISTEP     IS    THE    NUMBER    OF     SYMBOLS    PER    LINE 

C  NO    IS    THE    ROW    DIMENSION    OF    ARRAY    DRAW 

ISTEP=1C 

ND=1C 

DC    1    J=1,NL 

JJ=J*2 

DPAWd  ,JJ-1)=X1(  J  ) 

DRAW(1,JJ     )=Y1(J) 

XSTEP=(X2(J>-X1(J))/ISTEP 

YSTEP=(Y2( J)-Yl(J)  )/ ISTEP 

DO    1     1=2, ISTEP 

DPAWd  ,JJ-1)=DRAW(  1-1,  JJ-D  +  XSTEP 

DPAWd, JJ     )  =  DRAW(  l-l,JJ     J+YSTEP 

1  CONTINUE 
NLTT=NL*2 

DO    2     1=1 ,NLTT 

2  JXY( I)=I 

CALL    VPLOT (DRAW, JXY, I  STEP , ND , NL , 1 , -1 . ,  1.  ,-  1  .  ,  1 . * 
RFTURN 
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END 


31 
32 


46 


47 


101 


105 
109 


SUBROUTINE 
1YU) 
DIMENSION 
DIMENSION 
DATA    ICHAR 
XSU)-Xl 
XMAX=XU 
YMIN=Yl 
YSd)  =  YU 
IFdSCALE. 
XMAX=-1.0E 
XSd)  =  -XMA 
YSd)  =  XMAX 
YMIN=XS(1) 
J2=0 

DO  31  J*l, 
J2=J2*2 
JIX=(JXY(J 
JIY=UXY(J 
DO  31  1=1, 
I  JX=JIXd 
IJY=JIY*I 
IF(XY( IJX) 
IF(XYUJX) 
IF(XY( IJY) 
IF(XY( IJY) 
CONTINUE 
XR=XMAX-XS 
IFUR.EQ.O 
YR=YS( 1)-Y 
IF(YR.EQ.O 
XT=XMAX*XS 
YT=YMIN*YS 
IF(XT.LT.O 
IF(YT.LE.O 
XMAX=XR/10 
DO    46     1=2, 

xsm*xsu 

XMAX=YR/12 

DO   47    1=2, 

YSd)=YS(I 

PRINT    10, 

11*1 

KK=0 

00    146    LIN 

DC    101    J=l 

IGRID< J)=I 

IFtYT.GT.C 

IFILINE.NE 

DO    105    J=l 

IGRIDi J)*I 

IFtXT.LT.C 

J2=0 

DO    125    J=l 

J2=J2*2 

JIX=(JXY(J 

JIY=UXY(J 

JC=M0D(J,5 

DO    125    1=1 

IJX=JIX*l 

IJY*JIY*I 

IPTY=48.C* 

IFdPTY.GT 

IFUPTY.LT 

IFdPTY.NE 

IPTX=100.0 

IFdPTX.LT 

IFdPTX.GT 

IFCJC.NE.O 


VPLOT(XY,JXY,N,NDIM,NCUR,ISCALE,XL,XU,YL, 

IGRIDU01),XS(  11>,YS<  13) , ICHAR ( 7 ) , XY( 1 ) 
JXY(  1) 
/1H+,1H*,1H.,1H$,1H=,1H.,IH    / 


NE.0)GO    TO    32 

20 
X 


NCUR 

2-l)-l)*NDIM 
2)-l)*NDIM 

N 


•GT.XMAX)XMAX=XY( IJX) 
.LT.XSd))XSd)=XY(IJX) 
.GT.YS(1))YS(1)=XY(I  JY) 
.LT.YMIN)YMIN=XYdJY) 

d) 

•0)XR=1.0E-20 

MIN 

.0)YR=1.0E-20 

(1) 

(1) 

.0)IYAX=100.0*(-XSd))/XR+1.5 

.0)IXAX  =  48.0*YSd)/YR*1.5 

• 

11 

-D  +  XMAX 

• 

13 

-D-XMAX 
<XSd),I=l,ll) 


E=l,49 
,101 

Char i 7) 

•0)G0   TO    109 

•IXAXJGO  TO  109 

,101 

CHAR (6) 

•0)IGRID(IYAX)=ICHAR(6) 

,NCUR 

2-l)-l)*NDIM 

2)-l)*NDIM 

) 

tN 


(YS( 1)-XY( IJY) l/YR+1.5 

.49) IPTY=49 

•1)IPTY=1 

•LINEIGO  TO  125 

*{XYd JX)-XS(l) )/XR*1.5 

.l)IPTX=l 

.101 )IPTX=101 

)G0  TO  119 
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119 
12  S 


134 
135 


146 


10 
20 

30 
40 


IGRir>(  IPTX  )  =  ICHAR(  5) 

GC1    TO    125 

IGRIDi  IPTX  )=ICHAP(  JO 

CCNTINUF 

)GO    TO    1 
YS(  I  I  )  , 


34 


(  IGRIDC  I  ),I  =  l,l  U)  ,YS(  II  ) 


( IGPID( I), 1=1, 101) 
4)G0    TO    146 


IF{KK.GT.f 

PRINT    2C  , 

11=11+1 

GC    TO    135 

PRINT    30, 

KK=KK+  1 

IFUK.NE 

K  K  —^ 

CONTINUE 

PRINT    4C 

RETURN 

FORMAT (1HI  ,1PE15 

FCRMAT(lPE10.2,im-,10  1Al 

FORMAT  (1CX ,1H*, 101  A 1, 1H*) 

FORMATdCX  ,1H*,2'M5H«-****)  , 2H+*/ 1 PE16 . 2, 10 E1C 

END 


I XS( I ) ,1 =1,11) 


2,1CEIC 


.2/10X,lH*,2C(5H-«-****),2m-*) 
,1H+,F9.2) 

2) 


REPRESENTATIVE    DATA 
FIRST    TfcO    FACES    OF    AIRCRAFT    CARRIER 


0 
0 
r, 

353 

365 

955 
K  09 
1C68 
1046 
1152 

35  3 
1052 
1058 

358 

1358 

1065 

45^ 

1065 

1068 

1065 

1058 

1"»5? 

1046 

9  30 

930 

828 

828 

647 

647 

694 

694 

647 

647 

647 

394 

302 

694 
694 
694 
694 


.0 
.0 
.C 
.4 

•  C 
•0 

r\ 
ry 

•  c 

•  C 


.5 
.5 
.5 

•  C 
.5 

•  C 

.    - 

.0 
.5 
.^ 

•  C 
.C 
.0 
.0 
.0 

.c 

•  c 
.f 

•  0 

•  0 
.0 

•  C 

•c 

.0 

.r 

.0 

•  c 

.0 


36 


45.6 

0.0 

-45.6 

-64.  G 

131.  ^ 

■  1  3 1 .  C 

-79.8 

-68.5 

62.7 

45.6 

-64. C 

45.6 

5.7 

■10  3.9 

5.7 

-33.5 

131. ^ 

-33.5 

-68.5 

-33.5 

5.7 

45.6 

62.7 

50.2 

85.6 

90.  r 

114.0 
114.0 

ilO.C 

1 10.0 

52.5 

52.5 

110.^ 

114.  C 

114.0 

63.  r 

52.5 

11G.C 

UO.o 

52.5 


57.0 
57.0 
57.0 
57.0 
57.0 
57.0 
57.0 
57.0 
57.0 
57.  r 
57.0 
57. C 
57.0 
57.0 
57.0 
57.0 
57.0 
57.0 
57.0 
57.0 
57.0 
57.0 
57. C 
57.0 
57. r» 
57.0 
57.0 
57.0 
57. o- 
57.0 
57.0 
57.0 
57.0 
57.0 
57.0 
57.0 

57.0 
57.0 
79.8 
79.8 
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COMPUTER    PROGRAM    FOR    THE     SDS-9300 

COMMUN/SOFB/ALPHA,BETA,GAMMA,PSI  , THFTA,PHI  ,OBJMV(3), 
1VIFWMV(3)  f  FOCUS  tY  OFF,  ZOFF , SCLE , HMATKX ( 4, 4 )  ,OBSPOS( 12) 

DIMFNSION    ARRAY(R^f  13)  tIARRAY(2t8^  ,13)  ,FNOPML(B"  ,3) 

DIMENSION    t STFAC( 2  5r )  ,LST8FC(  1  ) 

DIMENSION    XSTARK30)  ,YSTAPT(  SO  )  ,XENi)(  30)  ,YENn(RC) 

EGUI VALFNCE  (ARRAY( 1, 1 ) . I  ARRAY! 1,1,1)  ) 

FCUI VALENCE  <  FNORML( 1,3) ,LST3FC< 1)  ) 

PXTEFNAL  FEAOCR 

N=8C 

NFACf-S  =  32 

CALL    UFSCRB<  ARR AY , 1  APR  AY, FNORML , LS TF AC ,N ,R EADCR, 
1XSTAPT,Y$T ART, X END, YEND,NLINES,L STBFC, NUSED) 

PC;    1     J=1,NFACFS 

CALL     FACES 

1  CONTINUE 
CALL  LINES 
CALL  CCVCVX 

2  CCNTINUE 

CALL    CCNV3D(N, ARRAY, NUSFO) 

CALL    HDNSPF 

CALL    AITEP 

CALL    CMPUT 

CALL     DATSTR 

CALL    DRAWVP(NLINES,XSTART,YSTART,XEND,YEND) 

CALL    LABEL 

IP(SFNSF    SWITCH    4)9,3 

3  CCNTINUE 
PALSE 
CALL     ERASE 

R FAD (5, 5) ALPHA, BET A, GAMMA, (OBJMV( I ), 1=1,3) 
RE  AD ( 5,5 )P SI ,THETAf PHI, (VIEWMV(J) , J=l,3) 
PEAD(5,1C ) FOCUS, SCALE , YOFF , ZOFF 
GC    TO    2 
5    FCRMAT(6F1C3) 
10    F0RMAT(4F1C.6) 
9    CONTINUE 
END 

SUBROUTINE    C0NV3D( N, PNTLST, NUSED) 

COMMON/SDFB/ALPHA,BETA,GAMMA,PSI,THETA,PHl ,0BJMV(3), 
1VIEWMV(3),F0CUS,Y0FF,Z0FF,SCLE,HMATRX(4,4)  ,OBSPOS( 12) 

DIMENSION  PNTLST(N,13),DISPLY(3),HCRD3D(4) ,TEMP(4) 
C  THIS  PROGRAM  USES  THE  FOURTH  COORDINATE  OF  THE 

C  HOMOGENEOUS  SET  EQUAL  TO  1.^  AND  THERFFORE  REDUCES 

C  THE  NUMBER  OF  MULTIPLICATIONS  NECFSSARY 

CALL  VMVMAT 

TEMP(4)=1.0 

DO  5  1=1, NUSED 

DC  1  IN=1,4 

1  HCRD3D(IN)='.? 

C  CONVERT  THREE-DIMENSIONAL  COORDINATES  TO  FOUR- 

C  DIMENSIONAL  HOMOGENEOUS  COORDINATES 

DO  2  IM=1,3 

2  TEMP(IM)=PNTLST( I,IM) 
DC  3  K=l,4 

DC  3  J=l,4 

\\C  RD  3D  (K)=HCRD3D(K)+TE  MP  (  J  )  *HMATRX  (  J  ,  K  ) 

3  CONTINUE 

DC  4  ID=2,3 

DISPLY( ID)=HCRD3D( ID) /HCRD3D(4) 

4  CCNTINUF 

C      SAVF  DEPTH  INFORMATION 
DISPLY(1)=HCRD3D( 1 ) 
DO  5  IS=1,3 

5  PNTLSTU  ,IS+3)=DISPLY(  IS) 
END 

RETURN 
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Sl:BHt)UT  I  NL     VMVMAT 

CCMMN/SPF P/ ALPHA, BFT A , GAMM A , PS  I , THE T A , PH I  ,0Q J  My <  3 ) , 
1VIFWMV(  3)  , FOCUS fYCFF,/ OFF fSCLF,HMATRX  (A,  4)  ,OBSPOS(  12) 

I)  IMF MS  ION     PHTMAT(4fA»,0RIMAT(Af4)fTFMP(3) 

PI  MENS  I  ON    TFMPY(3)iTfMPZ(3),TEMPF(3) 
C  THIS    SUBROUTINE    CALCULATES    THE     4X4     MATRIX    FDR 

C  PFRSPCTIVE    TRANSFORMATIONS 

C 

G  .W 

C  .Z 

C 
L/  •  •      •      •      * 

c  u 

C  .  OBJECT 

C  AXES  .V 

c  x 

C  VIEWPLANE 

C  AXES 

C  .Y 

C 

C  DEFINITIONS 

C  ANGLES  (ENTERED  IN  DCCREFS) 

C  ALPHA   ROTATION  OF  U  INTO  V 

C  BETA    ROTATION  OF  W  INTO  U 

C  GAMMA   ROTATION  OF  V  INTO  W 

C  PSI     ROTATION  OP  X  INTO  Y 

C  THETA   ROTATION  OF  I     INTO  X 

C  PHI     POTATION  OF  Y  INTO  Z 

C  PEJMV   MOVEMENT  OF  UVW  ORIGIN 

C  MEASURED  IN  XYZ  COOROS 

C  VIEWKV  MOVEMENT  OF  XYZ  AXES 

C  FTCUS   VIEWING  DISTANCE  FROM 

C  PICTURE  PLANE  ( YZ  PLANE) 

C  YCFF    HORIZONTAL  OFFSET  IN  PICTURE  PLANF 

C  ZOFF    VFPTICAL    OFFSET  IN  PICTURE  PLANE 

C  SCLE    NORMALIZED  DISTANCE  FROM  CENTER  TO  EDGE  OF  PICT 

C  NORMAL  VALUE  FOR  FULL  PICTURE  IS  1/2 

C  NORMAL  RATIO  OF  SCLE  TO  FOCUS  IS  BETWEEN  1/4  AND  1/3 

C  IF  FOCAL  LENGTH  IS  INCRFASED  WITH  SCLE  HELD  CONSTANT 

C  THE  PFSUIT  IS  AS  IF  A  TELEPHOTO  LENS  WERE  USED 

C  DECREASING  THE  FOCAL  LENGTH  CORRESPONDS  TO  USING  A 

C  WIDE  ANGLE  LENS 

C  VIEWING  ANGLES  MEASURED  VERTICALLY  AND  HORIZONTALLY 

C  FFCM  CENTER  ARE  APPROXIMATELY  14  DEGREES  FOR  A  PATIO 

C  OF  1/4  AND  18.5  DEGREES  FOR  A  RATIO  OF  1/3 


C 


CALL  ROT  AT N(ROTMAT, ALPHA, BET  A, GAMMA) 
Of  1  1=1,3 

1  FOTMAT(4t I  )=OBJMV(  I)-VIEWMV( I  ) 
A=-PSI 

B=-THETA 

C=-PHI 

CALL     FXRTAT(OR IMAT,A,B,C) 

CALL     PROr(ROTMAT,ORIMAT,4,4,4,HMATRX,4,4,4) 

FCTRl=-SCLE/FOCUS 

HMATRX(1,4)=HMATRX( 1, 1)*FCTR1 

HMATPX(2,4)=HMATRX(2,1>*FCTR1 

HM AT PX (?, 4 )=HM ATRXl 3, 1)*FCTR1 

HMATPX (4,4)=(HMATRX(4, 1 ) -FOCUS )*FCTR1 

IF(YOFF.EU.^. )GO  TO  3 

FCTP?=YOFF/SCLE 

DC  2  1=1,4 

2  HMATPX( I ,?)=HMATRX( I , 2 ) +FC TR 2*HMAT RX  (  I  ,4) 

3  CONTINUE 
IF(ZOFF.FC.  '. )GO    TO    5 
FCTR3=ZOFF/SCLE 

or  4   1=1,4 

4  HMATPX(I,3)=HMATRX(I,3)+FCTR3*HMATRX(I,4) 
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CONTINUE 

CALL    POTATN(ORIMAT,PSI,THETA,PHl ) 

DO    6,1*1,3 

TEMP(I)*VIEWMVm-OBJNV(  I) 

TFMPF(  l)=ORIMAT(l,  I  >*FOCUS«TEMP(  1  ) 

TEMPY(  I)*ORIMAT(2,I|*TEMP(I  ) 

TFMPZ(I)«ORIMAT(3,  I)*TEMP(  I  ) 

A*-ALPHA 

B=-BFTA 

C*-GAMMA 

CALL    POTATN(ROTMAT,A,B,C> 

DO    7    1*1 ,12 

OBSPO$(I)*C.O 

DC    8    J*=l,3 

JJ*J*3 

JJJ»J*6 

J4J*J*9 

DO    8    I«l,3 

OBSPOS(JJ)*OBSPOSUJ»*TENPYm*ROTMAT(  I.J) 

OBSPOS(JJJ)*OBSPOS(JJJI*TENP2( I>*ROTNAT( I, J) 

0PSP0S(J4J)x0BSP0S(J4J>*TEMPF( 

OBSPOS(J>«CBSPOS(J)*TFMP( II*RO 

RETURN 

END 


I)*ROTMAT( I, J) 
f)*ROTMAT( I, J) 
iTMATIItJI 


SUBROUTINE  FXRTAT ( RMATRX , A, B, C > 

DIMENSION    PMATRX(4.4) 
C  THIS    SUBROUTINE    CALCULATES    THE    4X4    ROTATION 

C  MATRIX    FOR    EULER    ANGLE    ROTATION 

C  CALCULATE    DIRECTIONAL    COSINES 

C  AND    PLACE    IN    ROTATION    MATRIX 

TPI«3. 1416/180. 

ALPHA«TPI*A 

BETA»TPI*B 

GAMMA*TPI*C 

SALPHA*SIN(ALPHA) 

CALPHA*COS (ALPHA) 

SBETA«SIN(BETA) 

CBETA*COS(BETA) 

SGAMMA«SIN(GAMMA) 

CGAMMA*COS(GAMMA) 
C  CALCULATE    DIRECTIONAL    COSINES 

C  AND    PLACE    IN    ROTATION    MATRIX 

TEMP1*CGAMMA*SALPHA 

TEMP2*SGAMNA*C ALPHA 

TEMP3*SGAMMA*S ALPHA 

TEMP4*CGAMMA*C ALPHA 

RMATPX(1,1 )=CBETA*CALPHA 

RMATRX ( 1,2 )*TEMP1*TENP2*SBET A 

RMATRX ( 1,3 )=TEMP3-TEMP4*SBET A 

RMATPX(2,1  )*-CBETA*SALPHA 

RMATRX(2,2)»TEMP4-TEMP3*SBETA 

RMATRX (2,3 )=TEMP2*TEMP1*SBET A 

RMATRX(3,1 )»SBETA 

RMATRX(3,2)=-CBETA«SGANMA 

RMATRX (3,3 )»CGAMMA*CBETA 

DC    1    1*1,3 

RMATRX(l,4)»0. 
1    RMATRX(4,I l»9. 

RMATPX(4,4)*1. 

RETURN 

END 

SUBROUTINE  ROT ATN( RMATRX, A, B,C ) 

DIMENSION  PMATRX(4.4) 
C  THIS  SUBROUTINE  CALCULATES  THE  4X4  ROTATION  MATP 

C  ANGLE  POTATION. 

TPI=3. 1416/180. 

ALPHA=TPI*A 

BETA=TPI*B 
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GAMMA=TPI*C 

SALPHA=SIN(ALPHA) 

CALPHA=COS(ALPHA  ) 

SDETA=SIN( BETA) 

CBETA=COS(  BETA) 

SCAMMA=S IN(GAMMA) 

CGAMMA=CCS (GAMMA) 
C  CALCULATE    OIRECTIONAL    COSINES 

C  AMI    PLACE     IN    ROTATION    MATRIX 

Tf  MP1=C3AMMA*SALPHA 

TFMP2=SGAMMA*CALPHA 

TFMP3=SGAMMA*S ALPHA 

TEMP4=CGAMMA*CALPHA 

RMATRXt 1,1  )=CBETA*C ALPHA 

RMATRX  (1 ,2 )=CBETA*SALPHA 

KMATPX( 1,?)=-SBFTA 

RNATRX (2,1  )=TFMP2*SBFTA-TEMPl 

RMATRX (2,2  )=TEMP3*SBETA+TEMP4 

RMATRX (2, 3 )=SGAMMA*CBETA 

PMATPX (3,1 )=SBETA*TEMP4+TEMP3 

PM AT PX(3,2)=SB ETA* TEMPI-TEMP 2 

RMATRX (3, 3  )=CBETA*CGAMMA 

TO  1  1=1,3 

RMATPX( I,4)=C. 
1  RMATPX(4, I )  =  0. 

Rf'ATPX  (4,4  )  =  1. 

RETURN 

ENC 

SUBRCUTINE  PROD  ( A , B , N, M , L , C , ND, MD, LD ) 
DIMENSION  A(NU,MD)  ,B(MO,LD) ,C(ND,LD) 
DO  1  1=1, NO 
DO  1  J=1,LC 
I  C(  I, J)=^. 
DO  151  1  =  1  ,N 
DC  151  J  =  l  ,L 
DO  151  K=1,M 
151  C(I,J)  =  C(I,J)  ♦  A( I ,K)*B(K,J) 
RETURN 
END 

SUBROUTINE  OESCRB ( ARR AY, I  ARRAY , FNORML , LSTF AC , N, SUBR 1 , 
1XSTART,YSTART  ,  XEND , YEND, JDSPL Y , LSTBFC , NPNT R) 

CCMMON/SDFB/ALPHA,BETA,GAMMA,PSI,THETA,PHI ,OBJMV( 3) , 
1VIEWMV<3) , FOCUS .YCFF, ZOFF , SCLE , HMATRX ( 4, 4 ) ,03SPOS( 12) 
DIMENSION  ARRAY(N,13) ,IARRAY(2,N,13),LSTFAC(1) 
DIMENSION  XSTART(  1  )  ,  Y  START  (  1  )  ,  XEND(  1)  ,  YENDd  ) 
DIMENSION  IWRKNR<20) , JGSET<2~) , INTLVR(20 ) 
D  I  MENS  ION  TEMP  IN  (  9),  FNORML  (N,  3)  .LSTBFCU  ) 
DIMENSION  AA ( 3 ) . B3 (3 ) , CC ( 3 ) , PP { 3 ) 

DIMENSION  AAA (3) ,3BB( 3) ,AAAE( 3 ) ,BBBE ( 3 ) , TSTPNT (4 ) 
INTEGER  CURSFG,TPNTR, POINT, TEMP 
C 

C  N  IS  THE  NUMBER  OF  DIFFERENT  POINTS  EXPECTED 

C  SUBR1  IS  THE  SUBROUTINE  THAT  WILL  ENTER  DATA 

C  CALLING  NAME  OF  SUBR1  MUST  BE  DECLARED  EXTERNAL 

C  IN  THE  MAIN  CALLING  PROGRAM  IN  ORDER  THAT  ITS 

C  NAME  WILL  BE  RECOGNIZED  AS  A  SUBROUTINE 

C  DATA  IS  ENTFRED  IN  THE  FIRST  THRFE  LOCATIONS 

C  OF  TFMPIN 

C  SU8R1  SHOULC  READ  IN  NUMBER  OF  »OINTS  TO  THE  FACE 

C  THIS  SHOULD  BE  FOLLOWED  BY  THE  THREE  COORDINATES 

C  OF  EACH  POINT,  ONE  POINT  AT  A  TIME,  INTO  ARRAY 

C  TEMPIN 

C  IF  DESIRED,  READCR  MAY  BE  USED  TO  ENTER  DATA 

C  FORMAT  EXPECTED  IS  1110  FOR  THE  NUMBER  OF  POINTS 

C  OF  THAT  FACE  TO  FOLLOW 

C  SUBSEUUENT    CARDS    HILL    USE    THE    FORMAT    3F20.6    FOR 

C  COORDINATES    U,V,W 
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TMSNS(AC,B0,A1,B1  ,  A2  ,  82  ,  CONST  )  =  A0*B1  ♦  A2*BO-  AO*B2-  Al* 
1BO+CONST 
NPNTR=LPNTR=IFPNTR=LSPNTR=JOSPLY=JPNTR=LPESTR=0 
ALPHA=BETA=GAMMA=PSI=THETA=PHI=C. 
VIEWMVU  )=VIEWMV(2)=VIEWMV<3)=0. 
OBJMV(2)=OBJMV<3)=0. 
OBJMV(  l)*-40. 
FCCUS=1.5 
ZCFF=YnrF=C. 
SCLF=C  .5 
DC  1  1*1, N 
ARRAY!  1,7)  =  ">. 
1  ARRAY(  I,13)=0. 
RETURN 

SUBROUTINE  ERASE 
DC  7  1=1, N 

7  APRAY( 1,131*0. 
IF(LPFSTR.EQ.^  )G0  TO  8 
DO  6  I=1,LPNTR 

6  IARRAY(?,I  ,9)=IABS(IARRAY(2,I,9)  ) 
RETURN 

8  CCNTINUF 
CALL  LINES 
RFTURN 

SUBROUTINE    FACES 

NPT=1 

CALL    SUBR1 <NPT,TFMPIN) 

IFPNTR=IFPNTR*1 

IARRAYd,  IFPNTR,8)=NPT 

I ARR AY <2,  IFPNTR,8)=LSPNTR+1 

00  13  IN=1,NPT 

CALL  SUBR1 (0,TEMPIN) 

21  DO  22  I*liNPNTR 

IF(TEMPIN(  1).EQ. ARRAY!  1,1)  .AND.  TEMP  IN  (  2)  .  EQ.  ARRAY(  1,2) 
1.AND.TEMPINI3) . EQ. ARR AY ( I , 3) )G0  TO  14 

22  CONTINUE 
NPNTR=NPNTR+1 
NFW=NPNTP 

DO    11    1=1,3 

11  ARRAY(NPNTR, I)=TEMPIN(I ) 

12  LSPNTR=LSPNTR+1 

13  LSTFAC(LSPNTR)=NEW 
RETURN 

14  NEW=I 

GO    TO    12 

SUBROUTINE  LINES 
DO  4C  I=1,IFPNTR 
IR  =  1 

NBR=IARRAY<1.  1,8) 
TPNTR=IARRAY(2,I ,8) 
LSTRT=TPNTP 
LPNT=LSTFAC(TPNTR) 

31  TPNTR=TPNTR*1 
NPNT=LSTFAC(TPNTR) 

32  IR  =  IR-U 
IF(NPNT.LT.LPNT)GO  TO  38 
IB  =  1 

LLCW=LPNT 

LHIGH=NPNT 
39  CONTINUE 

DO  16  J=1,LPNTR 

IF( IARRAY( 1, J, 9) . EQ.LLOW. AND. I ARR AY( 2 , J, 9 ) .EQ.LHIGH)GO 
1T0    37 
16    CONTINUF 

LPNTR=LPNTR*1 

IF(LRESTR.NE.O )G0    TO    33 
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IARRAY( IB,LPNTR,11 )=I 

33  IARRAY( 1,LPNTR,9)=LL0W 

I  ARRAY (2,LPNTR,9)=LHIGH 

34  LPNT^NPNT 

IF  (  IP-NBR)  31, 36, A"1 

36  NPNT=LSTFAC(LSTRT) 
GO    TO    32 

37  IARRAY (IB, J, 11 )  = I 
GC    TO    34 

38  LLOK=NPNT 
LHIGH=LPNT 
IB  =  2 

GO    TO    39 
4*    CONTINUE 
LPESTP=C 
RETURN 

SUBROUTINE    CCVCVX 

THE    FIRST    POINT    ENTERED    MUST    BE    A    CORNER    PUINT 
I.E.,     THE    LAST,    FIRST,    AND    SECOND    POINTS    MUST 
NOT    BE    COLLINEAR 
DO    49     1=1, IFPNTR 
NBP=IARPAY (1,1,8) 
TPNTR=IARP AV(2,I  ,8) 
PCINT=LSTFAC(TPNTR+NBR-1) 
DO    41    J=l,3 

41  TEMPIN(J)=ARRAY(POINT, J) 
POINT=LSTFAC(TPNTR) 

DC    42    J  =  l,3 

42  TFMPIN( J+3)=ARRAY(POINT,J) 
POINT=LSTFAC(TPNTR*l) 

DO    43    J=l,3 

43  TEMPIM(J+6)=ARRAY(P0INT, J) 

A=SQRT((TEMPIN(1 )-TEMPIN(4) ) **2+( TEMP IN( 2) -TEMPIN( 5) ) 
1**2«-<TEMPIN(3)-TEMPIN(6)  )**2) 

B=SQFT((TEMPIN(7)-TEMPIN(4) ) **2+ ( TEMP  I N( 8 ) -TEMP IN ( 5 ) ) 
1**2+  (TEMPI M9J-TEMPIN (6)  )**2) 

ABI=1./(A*B) 

FMOPML  (1,1  )  =  ABI*( (TEMP  IN ( 2 )-TEMP IN ( 5 ) ) *( TE MP  I N( 9 ) - 
1TFMPIN(6) )-(TEMPlN(3)-TEMPIN(6)  )*(TEMPIN(8  I- 
2TEMPIN(5) ) ) 

FNORML(I,2)=ABI*(  ( TEMP  IN ( 3 )- TEMP  IN ( 6 ) )*(  TE MP  I N< 7  ) - 
1TEMPIN(4) )-(TEMPIN(l)-TEMPIN(4) )*(TEMPIN(9)- 
2TEMPIN(6) ) ) 

FNORML  (I,3)=ABI*( (TEMP  IN ( 1 l-TEMP IN ( 4) ) *( TEMP IN( 8 ) - 
1TFMPIN(5) )-( TEMPI N(2) -TEMP IN(5> )*(TEMPIN(7 >- 
2TFMPIN(4) ) ) 
49    CONTINUE 

DO  47  I=1,LPNTR 

IFACE1=IABS(  I  ARRAY (1, 1,11) ) 

IFACE2=IARRAY(2, 1,11) 

LLOH=IARRAY(l,  1,9) 

LHIGH=IAPRAY(2,  1,9) 

DO    44    J=l,3 

AMJ)  =  FNORML(  IFACE1,J) 

44  PE(J)=FNORML(  IFACF2,J ) 
CALL  CROSS (AA,BB,CC) 
DO  45  J=l,3 

4  5  AA(J)=ARRAY(LHIGH,  J  ) -ARR  AY  (  LLOW,  J  ) 
SCALAP=n. 
DO  46  J=l,  3 

46  SCALAR=AA( J)*CC( J )+SCALAR 
IF (SCALAR. GE.i.)GO    TO    47 
IARRAYd,  1,11  )=-IFACEl 
IARPAY(l,LL0W,7)=l 
IARRAYd, LHIGH,7)=1 

47  CONTINUE 
RFTURN 
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SUBROUTINE    HDNSRF 

JPNTR=C 

DO    5A    1=1, IFPNTR 

NBR=IABS(IARRAY(1, 1,8) ) 

TPNTR=IARRAY(2,I ,8) 

PPINT=LSTFAC<TPNTR+NBR-1) 

DO    51    J=l,2 

51  TFMPINC  J)  =  ARRAY(POINT,  J-i-A) 
POINT=LSTFAC(TPNTR) 

DO    52    J=3,A 

52  TEMPIN(J)=ARRAY(POINT,J*2) 
POINT=LSTFAC(TPNTR+l) 

DO    53    J=5,6 

53  TEMPIN(J)=ARRAY(POINT,J) 
DEPTHN=<TEMPIN(1)-TEMPIN<3))*(TEMPIN(6)-TEMPIN(A)  ) 

1<TEMPIN(5)-TEMPIN(3))*(TEMPIN(2)-TEMPIN<A)  ) 
IF(DEPTHN.GE.0.)GO  TO  55 
IARRAY(1,I ,9)=NBR 
5A  CONTINUE 

DO  58  I=1,LPNTR 

IFLAG1=C 

TEMP=IABS<  IARRAY(  1,1,9)) 

IFACE1=IARRAY( 1, 1,11) 

IF(IFACE1.GT.O)GO    TO    57 

IFACE1=-IFACE1 

IFLAG1=1 

57  IFACE2=IARRAY(2.I,11) 

IFUARRAY( 1, I  FACE  1,8) .LT.C ) IFLAG1=IFLAG1*1 
IFUARRAY(1,IFACE218).LT.0)IFLAG1=IFLAG1  +  1 
IFUFLAGl.GE.2)GO    TO    56 
IARRAY(1,I ,9)=TEMP 

58  CONTINUE 
RETURN 

55  IARRAY(1,I ,8)=-NBR 
GO  TO  5A 

56  IARPAY(1,I ,9)=-TEMP 
GO  TO  58 

SUBROUTINE  CMPUT 
C  EXAMINE  SEGMENTS  ORIGINATING  AT  SPECIFIED  NODE 

JDSPLY=C 

DO    1CA    ILK=1,LPNTR 

LLOW=I ARRAY(1,ILK,9) 

IF(LLOW.LT.-))GO    TO    KA 

XLOW=ARRAY(LLOH,5) 

YLCW=ARRAY(LL0W,6) 

IFUARRAY(2,LLOW,13).NE.C)GO    TO    1C5 

CALL  VRTNTP 
105  CONTINUE 
C  SEARCH  FIRST  NCOE  OF  ALL  SEGMENTS 

DO  11A  IL=ILK,LPNTR 

IFUARRAYI  1,  IL,9)  .NE.LLOW)GO  TO  11A 

LHIGH=IARPAY(2,IL,9) 

IFCLHIGH.LT. 0)GO  TO  11A 
C  ENTER  NATURE  AT  INITIAL  VERTEX 

112  NBR=IARRAY(l,LLOW,13) 
TPNTR=IARRAY(2,LLOW,13) 
IWRKNR(1)=NBR 
IF(NBR.EQ.0)GO  TO  301 
IDRAW=C 

107  IENO=NBR+l 

DO  111  J=2,IEND 
111  IHRKNR(J)=LSTBFC<TPNTR*J-2) 

113  CONTINUE 

C  FIND    DIRECTION    NUMBERS 

XHIGH=ARRAY(LHIGH,5) 
YHIGH=ARRAY(LHIGH,6) 
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AAL=XF  IGH-XLOW 
bHL=YHlCH-YLOW 

find  losing  intersections 
cupseg=il 
call  lntrsc 
if ( inpsct. eq.o )go   to  103 

search  for    intersection  at   initial  vertex 
iccunt  =  inpsct 

UK=LPNTR+1 
NTEMP=C 

DC    ln9    I=1,INRSCT 
UK=IJK  +  1 

IF  (  IARRAY(  1,  UK, 9)  .LT.O  )GO    TO    109 

IF(XL0W.E0.FNORML( I ,1 ) . AND. YLOW . EQ . FNORML ( 1,2 ) )GO    TO 
1  If  9 

INTERSECTION    OCCURS    AT     INITIAL    VERTEX 

NTFMP=NTEMP-H 

INTLVP (NTEMP)=I ARRAY (  1,  IJK,^) 

I  ARPAY  (1  , IJK,9  )=-IARRAY(l  ,  UK,  9) 
1T9    CONTINUE 

IFCNTFMP.EQ.OGC    TC    151 

XNEAP=XLOW+.COC1*AAL 

YNEAP  =  YLOW  +  .C  ^rl*BBL 

COMPUTE    DEPTH    CF    POINT    NEAR    VERTEX 

TEPPINU)  =  .0C1*ARRAY(LHIGH,1  ) -APR  AY  {  LLOW,  1  )*.999 

TFMP  IN(2I*.0C 1*ARRAY(LHIGH,2)-ARRAY(LLUW,2)*.999 

TF^F  IN(3)=.001*ARRAY(LHIGH,3)-ARRAY(LLOW,3 )*.999 

DPTHNR=DEPTH(TEMPIN(1 ) , TEMPI N( 2 ) , TEMP  I N( 3 » ) 

CALL  TSTNNP 

IF  (IDRAW.E0.1.  AND.  IWRKNRd  KNE.C  )GO    TO    3*2 

IFdOPAW.EQ.O.AND.  IWRKNR(  U.EQ.OGO    TO    3r-3 

GO    TO    151 
Ml    JCSPLY  =  JDSPLY+1 

XSTAPT{ JDSPLY)=XLOW 

YSTART (JDSPLY)=YLOW 

IORAW=l 

GL  TO  113 
3?2  JCSPLY=JDSPLY-1 

IDRAW=f> 

GO    TO    151 
3C3    JDSPLY=J0SPLY+1 

XSTART( JDSPLY)=XLGfc 

YSTART (JDSPLY)=YLOW 

IDRAW=1 

151  CONTINUE 
IFUCCUNT.EQ.O  )    GO    TO    1"3 
NTEMP=C 

IJK=LPNTP+1 
DC  152  I=1,INRSCT 
IJK=IJK+1 

UKTST=IAPRAY(  1,  UK, 9) 
IFUJKTST.LT.O  )GO    TO    152 

IF< XH I GH.EQ. FNORML U , 1> . AND. YH I GH. EQ .FNORML ( 1,2) )GO 
1TC    153 

152  CONTINUE 
IFLAG=0 

IF ( ICOUNT.LE.NTEMPIGO    TO    201 
GC    TO    154 

153  NTEMP=NTEMP+1 
INTLVP(NTEMP)=IJKTST 
IARRAY(1,IJK,9)=-UKTST 
GO    TO    152 

154  CCNTINUE 
IJK=LPNTR*1 
RLNGTH=1.E6 

DC    155    I=1,INRSCT 

IJK=UK+1 

UKTST  =  IARRAY(  1,  UK, 9) 

IF (I JKTST.LT.O)GO    TO    155 

ALSEG=FNORML( I ,  D-XLOW 

BLSEG=FNORML( I, 2) -YLOW 

TLNGTH=ABS(ALSEG)+ABS(BLSEG) 
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IMTLNGTH-RLNGTH)  156,157,155 

156  RLNGTH=TLNGTH 
ISEGJ=IJKTST 
NXTINT=IJK 
MULTPL=1 
NI=I 

GO    TO    155 

157  IF (IFLAG.EQ.O) MULTPL=MULTPLd 
155  CCNTINUF 

IFACE1  =  IABS(  IARRAYd,  ISEGJ,11)  I 
IFACE2=IARRAY<2, ISEGJ,  11) 
IF(MULTPL.GT.l )GO  TO  162 

165  CONTINUE 
ITSTNP=IWRKNR< 1) 

IFUARRAYUf  I  FACE1  ,8)  .LT.01G0    TO    160 
CALL    DELETEt IWRKNR , I FACE1 ) 
IMITSTNP.NE.  IWRKNRd)  )GO    TO    159 
IWRKNR(1)= IWRKNR(  l)d 
IWRKNR  dTSTNR*2)=  I  FACE  1 
CALL    DELETE( I WRKNR , I FACE2 ) 
GO    TO    161 

159  IFUARRAYl  1,  IFACE2.8)  .LT.f  )GO    TO    161 
I WRKNR ( ITSTNR+1)=IFACE2 

IWRKNRd  )=IWRKNR( 1)+1 
GO    TO    161 

160  CALL    DELETFt I WRKNR , I FACE2 ) 
IFUTSTNR.NE.  IWRKNRd)  )GO    TO    161 
IWRKNR(1)=IWRKNR(1 >*1 
lWRKNRdTSTNR*2)  =  IFACE2 

161  IARRAYd, NXTINT,9)=-ISEGJ 
IMIDRAW.EQ. LAND. IWRKNRd). NE.CIGO    TO    3C4 
IF(IDRAW.EO.O.AND.IWRKNR(1).EQ.O)GO    TO    305 

168  ICCUNT=ICOUNT-l 

IFdCCUNT.LE.NTEMP)GO    TO    201 
MULTPL=MULTPL-1 
IF{MULTPL.LE.O)IFLAG=0 
GO    TO    154 

304  XEND(JDSPLY)=FNORML(NI,l) 
^YEND(JDSPLYI  =  FNORML<NI,2) 

CALL  WINDOW 
IDRAW=0 
GO  TO  168 

305  JDSPLY=JDSPLY+1 
XSTART(JDSPLY)=FNORML<NI,l) 
Y START <JDSPLY)=FNORML(NI,  21 
I0RAW=1 

GO    TO    168 

162  CONTINUE 

MULTIPLE    INTERSECTIONS 
IRPT=1 

ISCTND=IARRAY( 1, ISEGJ, 9) 
XINSCT=FNORML(NI,l) 
YINSCT=FNORML(NI,2) 

163  XSEGJ=ARPAY( ISCTND,5) 
YSEGJ*ARRAY( ISCTN0,6) 

IF(XSEGJ.EQ.XINSCT.AND.YSEGJ.EQ.YINSCT)GO    TO    166 
IF(IRPT.EQ.2)GO    TO    165 

164  ISCTND=IABS(IARRAY(2, ISEGJ, 9 )) 
IRPT=2 

GO    TO    163 

166  IFLAG=1 
XLEFT=XINSCT-.001*AAL 
XRIGHT=XINSCT+.C01*AAL 
YLEFT=YINSCT-.0C1*BBL 
YRIGHT=YINSCT+.C01*BBL 

167  IFdRPT.EQ.l  )  IHIGHE=IABS(  I  ARRAY  (2,  ISEGJ,  9  >  ) 
IFdRPT.EQ.2)  IHIGHE=IABS(IA«RAYd,  ISEGJ,  9  I  ) 
XTEST=XINSCT  +  .001*(ARPAYdHIGHE,5)-XINSCT) 
YTEST=YINSCT  +  .001*(ARRAYdHIGHE,6)-YINSCT) 
TEMP1=XLEFT*YRIGHT-XRIGHT*YLEFT 

AL=TRISNS<XTEST,YTEST,XLEFT. YLEFT, XRIGHT, YRIGHT, TEMPI ) 
IFIABS(AL) .LT.1.0E-8)GO    TO    170 
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IFUL.LT.f 

GC     TO     165 
17C    CCNTIMjr 

ITSTN'R=IWP 
CALL  DFLET 
IF( ITSTNP. 
IWRKNR  (  1  )  = 
IWPKNP  (  ITS 
IWRKNP (TTS 
GC  TO  161 
L  II    CONTINUE 

CALL    DELET 
GO    TO    161 
2'M    CONTINUE 

IF(NTEVP.F 
XNEAR=XHIG 
YNEAP=YHIG 
PC  2C  3  J=l 
?S3  TFMPIMJ)  = 
DFTHNP=ARR 
CALL  TSTNN 
P3    CONT  INUE 

IFUDRAW.E 
106     IF(IAPKAY( 
IARF AY (1,L 
IARRAY(2,L 
IFN0=IWRKN 
DO    2C2    J=2 
JPNTP=JPNT 
LSTBFC(JPN 
Z'.l    CCNTINUF 
20 A    IARRAY(2,I 
114    CONTINUE 
1C4    CONTINUE 

RETURN 
3    6    XFNDUOSPL 
YFND( JDSPL 
CALL    WINDO 
GO    TO    1C6 


,)G0  TO  161 


KNR(  1) 

F(  IWRKNR, IFACE1  ) 

NF.  IWKKNRU  )  )GC  TO  171 

ITSTNR+? 

TNR+2)=IFACE1 

TNR+3)=IFACE2 


E( IWRKNR, IFACE2) 


CO)  GO    TO    103 

F 

F 

.3 

ARP  AY(LHIGH, J ) 

AY(LHIGH,4) 

P 

0.1) GO    TO    3T6 

2,LHIGH.  13)  .NE.f  )G0    TO    2C4 

FIGH,13)=IWRKNP<  1) 

HIGH,13)=JPNTR+1 

P< 1)+1 

,IEND 

R+l 

TR)=  IWRKNR( J ) 

L,9)=-LHIGH 


Y)=XHIGH 
Y) =YHIGH 
W 


472 
481 


482 
483 


^85 


436 


SL 

NP 
DC 
MI 
LL 
IF 
IF 
LH 
IF 
GO 
IA 
GC 
LP 
HP 
GO 
LP 
HP 
CO 
DO 
AA 
BB 
CA 
NP 
DO 
AP 
AP 
FC 
DO 
U 
FC 
DO 


BROUTI 
KTPA=N 

471  I 
RP0R=1 
0W=I AP 
(LLOW. 
(ARRAY 
IGH=IA 
(ARRAY 

TO  (4 
RPAY  (1 

TO  47 
CINT=L 
CINT=L 

TO  43 
OINT=L 
CINT=L 
NTINUF 

485  I 
(I )=AR 
(I  )  =  AR 
LL  PIE 
NTRA=N 

486  I 
RAY(NP 
RAY( NP 
TR=HMA 

487  I 
=  1*3 
TR=FCT 

487    J 


NE    ALTER 

PNTR 

I=1,LPNTR 

F AY(1,  11,9) 

IT.OIGO    TO    471 

(LLOW,  4)  .GT.O.  )MIPRQR=MIRR0R+1 

RR AY (2, I  I, 9) 

(LHIGH,4) .GT.C. ) M I RROR=M I RROR+2 

71 ,48 1,48 2, 472), MIRROR 

,1 I,9)=-LLCW 

1 

LOW 

HIGH 

3 

HIGH 

LOW 


=  lt3 
RAY( 
RAY( 
RC(0 
PNTR 
=  1,3 
NTRA 
NTRA 
TPX( 
=  1  ,3 


LPCINT,I ) 

HPOINT.I ) 

BSPCS(1),0BSP0S(4)  ,0BSP0S(7),AA,BB,t>P) 

A«-l 

,  I  )  =  PP(I ) 

, 1*3) =HMATRX(4, I ) 

4,4) 


R+ARRAY(NPNTR,  I)*HMATRX(I,4) 
=  1  t3 
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48  7  ARRAY (NPNTRA, IJ ) = ARR A Y( NPNTRA , IJ ) ♦ ARR AY ( NPNTRA , J ) * 
1HMATRX(J,I  ) 

D(J  488  1=5,6 
48  8  ARRAY ( NPNTRA,  I  ) =ARRAY ( NPNTRA , I  l/FCTR 

MIRR0R=MIRR0R-1 

IARRAY(MIRROR,II , 9)=NPNTRA 
471    CONTINUE 

IF (NPNTRA. NE.NPNTR)LRESTR=1 

RETURN 

SUBRCUTINE    VRTNTR 

MRPNTR=LPNTR+1 

ISTRT=MRPNTR+1 

86  NBR=C 

DC    92       IJ=1,LPNTR 
IFACl=IABS(tARRAY(l, IJ,11)  ) 
IFAC2=IARRAY(2,IJ,11) 

IF ( I ARR AY ( 1, IFACl,8).LT.r.AND.IARRAY(l,IFAC2,8).LT.C. 
1DR.IFAC1.EQ. IFAC2)    0    TO    92 
LL0WE=IABS(IARRAY(1,IJ,9)) 
98    LHIGHE=IABS( IARRAY(2,  IJ,9) ) 
Xl=ARRAY(LLOWE,5) 
X2=ARRAY(LHIGHE,5) 
XMAX=AMAX1 <X1, X2  ) 
XMIN=AMIN1 (XI, X2) 
IF(XMAX-XLOW)92.97,87 

87  IF(XMIN.GE.XLOW)GO  TO  92 

88  Y1=ARRAY(LL0WE,6) 
Y2=ARRAY(LHIGHE,6) 
YMAX=AMAX1 (Yl, Y2) 
IF(YMAX.LT.YLCW)GO  TO  92 
TEMP1=X1*Y2-X2*Y1 
YMAX=YMAX+1. 

AL=TRISNS( XLOW,YLOk,Xl,Yl,X2,Y2, TEMPI ) 
AH=TRI SNS ( XLOW,YMAX, XI, Y1,X2,Y2, TEMPI) 

IF(AL.LT.C..AND.AH.LT.O..OR.AL.GT.O..AND.AH.GT.C. )  GO 
1TO  92 

MARK    POLYGONS    FOR     INTERCEPT 
IEFAC1=IABS( IARRAY(1,I J,ll) ) 
IEFAC2=IARRAY( 2, IJ, 11 ) 
IFUARRAYU,  I EFAC 1 ,8 ) .LT .0 )GO    TO    90 
DO    89       IK=ISTRT,MRPNTR 

89  IF(IAPRAY( 1, IK, 11) .EQ. IEFAC1 )GO    TO    95 
MPPNTR  =  MPPNTR*-1 
IARRAY(1,MRPNTR,11)=IEFAC1 
IARRAY(2,MRPNTR,11)=1 

IFU  ARRAY(l.IEFAC2,8).LT.O)    GO    TO    92 
DO    91       IK=ISTRT,MRPNTR 

91  IF(IARRAY(l,IK.ll).EQ.IEFAC2)GO    TO    96 
MRPNTR=MRPNTR+1 
IARRAY(1,MRPNTR,11)=IEFAC2 
IARRAY(2fMRPNTR,ll)=l 

92  CONTINUE 
IAPRAY(2,LLOW, 13)=JPNTR*1 
DO    94       IJ=ISTRT,MRPNTR 

IF(IARRAY(2,IJ,ll)-IARRAY(2,IJ,U)/2*2.EQ.C)GO    TO    94 
IFACE=IARRAY(1,  IJ, 11) 

DO    93       J  =  l  ,3 

93  TEMPIN(J)=ARRAY(LLOW,J) 
CALL    PLNLIN 
DVRTEX=ARRAY(LLCW,4) 
IF(ABS(DVRTEX)  .LT.O.DGO    TO    99 
PPX=DEPTH(PP( 1),PP(2),PP(3) ) 
IF(ABS(PPX-DVRTEX) .LT..G1 )GO    TO    94 

IF (PPX.LT.DVRTEX.OR.PPX.GT.O. )GO    TO    94 
FNTER    SET    OF    BLOCKING    FACES 
101    JPNTR=JPNTR+1 

LSTBFC(JPNTR)=IARRAY( 1 , IJ, 111 
NBR=NBR*1 

94  CONTINUE 
IARRAY(1,LL0W,  13)=NBR 
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90 


RETURN 
05     IARRAY(2,IK,11)=IAPRAY(2,IK,11)+1 

GC  TO  9f 
96     IAPRAY(2,IK,11)=IARR4Y(2,IK,11)+1 

GO  TO  92 
~H  Y=APRAY(LLCW,2 )-OBSPOS(2) 

IF (ABS(Y) . IT.. i)GG  TH  ICC 

IF (Y.GT.C .  .ANO.PP( 2) .LT./..OR. Y.LT.  . .AND. PP(2) .GF .' . ) 
1GC  TG  94 

IF (ABS(Y-PP<2) ) .LT..1 ) GO  TO  94 

GC  TO  K 1 
1C  0     7  =  AFRAY( LLCW,3 )-OBSPOS(3) 

IF(ABS(Z  )  . LT..  DGO  TG  94 

H  (Z.GT.C.  .AND.PPC  3).L  T.°..OR .Z.LT. :. .AND.PP( 3I.GT.'.  I 
1GC  TO  04 

IF(ABS(Z-PP(  3)  )  .LT.. l)GO  TO  94 

GC  TO  If  1 
-il     IF  (XMAX.NE.XMIN)GO  TO  88 

ARRAYULCWE,  5)=ARRAY(  L  LOWE,  5  )  ~.r   iOCl 

ARRAY(LHIGHE,5 )= ARR AY ( LH I GHE , 5 »♦. 00 3C 1 

MRPNTR=LPNTR+1 

GO  TO  86 


C 

c 
c 
c 
c 
c 
c 


SL 


115 


113 
114 


121 


124 
126 


122 


JG 
IS 
IF 
IF 
IF 
CA 
IF 
CA 
NT 
IF 
IF 
DC 
IF 
NS 
TP 


LL 
LH 
IC 
DC 
XI 
X2 
XM 
XM 
IF 
IF 
Yl 
Y2 
YM 
IF 
TE 
YM 

AL 
AH 
IF 
1IC 
LL 
LH 
CC 


BROUTINE 
TEST  P 
G  IS  T 
BEING 
J  IS  T 
INTERS 
FIND  S 

SET(  l)=t 

EGJ=INTL 

ACE1=IAB 

ACE2=IAR 

(IARRAYt 

LL  MERGE 

( IARRAY( 

LL  MERGE 

EMP=NTFM 

(NTFMP.G 

ND=JGSET 

117  IT= 
ACE=JGSE 
EGS=IAPR 
NTR=IARR 
TEST  N 
SFARCH 
OWF=LSTF 
IGHE=LST 
ROSS=C 

122  IK= 
=APRAV(L 
=APRAY(L 
AX=AMAX1 
IN  =  AMIM 
( XMAX-XN 
(XMIN.GE 
=ARRAY (L 
=ARPAY(L 
AX=AMAX1 
(YMAX.LT 
MP1=X1*Y 
AX=YMAX+ 
=TPISNS( 
=TPISNS( 
(AL.LT.C 
RCSS=ICR 
OWE=LHIG 
IGHF=LST 
NTINUE 


TSTNNP 
CINT  NEAR  TO  KNOWN  POINT 
HE  SET  OF  ON  VIEW  FACES  OF  WHICH  THE 
TESTED  IS  A  MEM3EP 

HE  SET  OF  ON  VIEW  FACES  BELONGING  TO 
FCTING  SEGMENTS 
FT  OF  FACES  WHICH  MAKE  UP  J  AND  G 


NODE 
THE 


113 


)  GO  TO  114 


VR(NTEMP) 

S( IARRAYC1,  ISEGJ, 11  )  ) 

PAY(2, ISEGJ, 11) 

1, IFACF1.8) .LT.CIGQ  TO 

(JGSET, IFACE1) 

1,IFACE2,8).LT. 

(JGSFT, IFACE2) 

P-l 

T.0)GO  TO  115 

(1  )  +  l 

2, IEND 

T(  IT  ) 

AY(1,IFACE,8) 

AY(2,IFACE,8) 

EAR  POINT  WITH  RESPECT  TO  SETS 

FACE  IFACE  FOR  INTERSECTION 
AC( TPNTR+NSFGS-1 ) 
FAC( TPNTR) 


J  AND  G 


,123,124 

TO  122 


1,NSEGS 

LOWE, 5) 

HIGHE,5) 

(XI, X2) 

(XI, X2) 

EAR)  122 

.XNEAR I  GO 

LOWE, 6) 

HIGHE,6) 

(Y1.Y2) 

.YNEAP)GO  TO  122 

2-X2*Yl 

1 

XN E AR, YNE AR, XI, Y1,X2,Y2, TEMPI) 

XNEAR,YMAX,X1,Y1,X2,Y2,TEMP1) 

.. AND.AH.GT.C. .OR.AL.GT.O. . AND.AH.LT 

OSS+1 

HE 

FAC(TPNTR+IK > 
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GC  TO  116 
123  IF(X^AX.NE.XMIN)GO  TO  126 

ARRAY! LLOWE, 5) =ARR AV( LLOWE ,5 ) -.0000 1 
APRAY(LHIGHE,5 )  =  ARRAY ( LH IGHE, 5  I ♦.0000 1 
GC  TO  121 

116  IF( ICROSS-ICRUSS/2*2.NE.C)GO  TO  118 
CALL  DELETE! IWRKNR , I  FACE ) 

GCJ  TO  12C 

118  CONTINUE 

C  POINT  LIES  INSIDE  POLYGON-SEARCH  SET 

IENP=IWRKNR<1)+1 
DO  119,IK=2, IEND 
IFUFACE.EO.  IWRKNR(  IK)  )  GO  TO  117 

119  CONTINUE 
CALL  PLNLIN 

nPTHPP=DEPTH(PP(l  )  ,PP(2),PP( 3)  ) 
IFIDPTHPP.LT. DPTHNR)  GO  TO  117 
IWRKNR ( IWRKNR (  1  )+2  )=IFACE 
IWRKNR ( 1 )= IWRKNR ( 1 )+l 

120  IcrilNTMCOlJNT-1 

117  CCNT INUE 
RETURN 

SLRPOUTINF     LNTPSC 
C  THIS    SUBROUTINE    CALCULATES    THE     INTERSECTION    OF    ALL 

C  STC-MFNTS    WITH    A    CIV^N    SEGMENT     IN    THF    PICTURE    PLANT 

I  X  PT^TR  =  1  PNTR+1 

I0VRLP  =  INRSCT=JGSFT(1)=: 

IFAl  El     IAHS(  IAhrayI  i, CURSCGi  111) 

IFACF2=IAPRAY(2fCURSEGf 11 ) 

IT  (ABS1AAL ) .LT..  . .   '  jl )GU    TO    68 

CRNTSL=PBl /AAL 
61     TPMP2=VLUW-CRNTSL  -XLOW 

TT  yJ?=XLOW*YHIGH-XHlGh*VLiiW 

XI  =ARRAY(L  L)W,  I  ) 

Yl  =APRAY(L  L'1W,2) 

Zl=thP AY(L LOW, 3) 

X?=APR AV(LHIGH,1 ) 

V2=ARP AY(LHIGH,2) 

/2=APRAY(LHIGH,3) 

TFMP1*X1*Y2-X2*Y1 

TEKP5=Y1*Z2-Y2*7! 

TEMP6=Z1*X2-Z2*X1 

Or    702     1=1  ,3 

AAA( I ) =ARRAY(LLOW, I > 
7-2    BL'R< I)=ARP AY {I  HIGH, I > 

Or     6  7     IEXAK=1,LPNTR 

IE  AC 1=IABS ( I  ARRAY (  1,  I  EXAM,  11)  ) 

IT  AC2=IAKR  AY(^>,  I  hXAM,  11) 

IFUFACl.EQ.  IFACE1.0P.  IFAC2.FK).  IFACE1  .Of  .  IFACi  ,EQ. 
1  IF ACE2.0R.  IFAC2.EQ.IFACE2.OR. I FAC1 .FQ. If  AC  2. OR. 
2IARRAYC1  ,IFAC1  ,8).LT.'  .  AND.  I  ARRAY  (  1 ,  I  F  A(  2,8)  .LT.'    ) 
3G0    TO    67 

LL  OWE= IABS(IARRAY(1, I  EXAM, 9)) 

If  -  (ARRAYCLLOWE,^) .GT.l. )G0    TO    67 

I  FIGHF  =  IABSC  I ARRAY! 2,  I  EXAM, 9) ) 

XLCWP=APPAY(LLCWF,5I 

Yl  OWI-  =ARPA  Y(  L  LOWE  ,6) 

XL  IGHF=APP AY< LHIGHE,5 ) 

YL  IGHF=ARf-  AY  (L  HIGHE,6  ) 
C  T^ST    FTP    INTFRSECTICN    USING    TRI-SENS!     TEST 

AL=TRISNS( XLOWE,YLOWE, XLOW, YLOW, XHIGH , YHIGH, TEMP3) 

AH=TRISNS< XHIGHE,YHIGHE,XLOW,YLOW,XHIGH,YHI' 
C  ARE    PUI.NTS    CCLL1NEA'-' 

IN DAB! =1 

IE  (Ai;S(AL  )  .LT.  1  .E-5)  I  NDAB  1  =  I  Nl>A  B  1  ♦  1 

lF(ABS(Ah) .LT. I.F-5IINDAB1*IN0AB1*2 

GL     Tf      (61  J  ,6!  3,e>  It,  7?  )  ,  INDAH! 
)1 }    ICCMN=LLUWf 

IDIFF=LHIGHE 

G(     TO    612 
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614  ICOMN=LHIGHE 
IDIFF=LLOWE 
GO  TO  612 

611  IF(AL.LT.C..AND.AH.LT.O..OR. AL.GT.O. .AND.AH.GT.C . ) 
1GO  TO  67 

612  TEMP4=XL0WE*YHIGHE-XHIGHE*YL0WE 

AL=TRISNS( XLOW,YL0W,XL0WE,YL0WE,XHIGHE,YHIGHE,TEMP4) 

AH=TRISNS( XHIGH, YHIGH,XLOWE, YLOWE , XHI GHE , YHIGHE ,TEMP4) 

IFUNDAB1.NE.1  )GO    TO    615 

INDAB2=1 

IF (ABS(AL)  .LT. 1 .E-5 )l NOAB2= INDAB2  +  1 

IF(ABS(AH) .LT.i.E-5)INDAB2=INr)AB2*2 

GO  TO  (615, 616,617), INOAB2 

616  HINSCT=XLOW 
VINSCT=YLOH 
GO  TO  7C1 

617  HINSCT=XHIGH 
VINSCT=YHIGH 
GO    TO    7C  1 

ol5    IF (AL.LT.O.. AND. AH. LT.O.. OR. AL.GT.O.. AND.AH.GT.C. ) 
1GO    TO    67 
IFUNDAB1.NE.1  )GO    TO    620 
701    CONTINUE 

DO    703    1=1,3 

AAAEU  )  =  ARRAY(LLOWE,  I  ) 

703  BBBEd  )  =  ARPAY(LHIGHE.I) 

CALL    PIERC(AAA,OBSP05(10I  ,BBB , AAAE ,BBBE , PP ) 
IXX=1 

704  GO    TO    (711 ,712,713,67),IXX 

711  AL=TRISNS(OBSPOS( 10).OBSPOS( 1 1 ), XI ,Y1 , X2 ,Y2, TEMPI ) 
AH=TRISNS( PP(1),PP(2),X1,Y1,X2,Y2,TEMP1) 

GO  TO  714 

712  AL=TRISNS(OBSPOS(ll),OBSPOS<  12  )  ,  Yl  ,Z  1 ,  Y2  ,  Z2,  TEMP5  ) 
AH=T RI  SNS  (  PP  (  2  ) ,  P  P  ( 3  )  ,  Y 1 ,  Z  1 ,  Y 2 ,  Z 2 ,  T EMP  5  ) 

GO  TO  714 

713  AL=TRISNS(OBSPOS(12)!OBSPOS(ir),Zl,Xl,Z2,X2,TEMP6) 
AH=TRISNS(PP(3),PP(1) , Zl , XI , Z2,X2 ,TEMP6 ) 

714  IXX=IXX+1 

IF(ABS(AL) .LT.FOCUS)GO    TO    704 

IF  (AL.LT.O..  AND.AH.GT.C  OR.  AL.GT.O..  AND.  AH.  LT.O.  )G0 
1T0    67 
IF(INDAB2.NE.1)G0    TO    64 
626    AALE=XHIGHE-XLOWE 
BBLE=YHIGHE-YLOWE 
IF(ABS(AALE> .LT..0001IGO    TO    69 
EXAMSL=BBLE/AALE 

62  HINSCT=(TEMP2+EXAMSL*XL0WE-YL0WE)/(EXAMSL-CRNTSL) 

63  VINSCT=TEMP2*CRNTSL*HINSCT 

64  CONTINUE 
IXPNTR=IXPNTR+1 
INRSCT  =  INRSCT«-1 
FNCRML(INPSCT,1)=HINSCT 
FNCRML(INRSCT,2)=VINSCT 
IARRAY(1,IXPNTR,9)=IEXAM 
IF(IOVRLP)     81,67,76 

620  IFUGSETU  >.EQ.C)GO    TO    622 
JEND=JGSET(1)+1 

DO    621    ISR=2,JEND 

IFUCOMN.EQ.  JGSET(  ISR)  )GO    TO    625 

621  CONTINUE 

622  JGSET(1)=JGSET<1)+1 
JGSET( JGSET(l)*l>=ICOMN 
INTLVR(JGSET(1U»IDIFF 
GO   TO    67 

625    XC=ARRAY(IDIFF,5) 
YC=ARRAY(IDIFF,6) 
MARK=INTLVR(ISR-1) 
XT=ARRAY(MARK,5) 
YT=ARRAY(MARK,6) 

AL=TRISNS(X0,Y0,XLOW,YLOW,XHIGH,YHIGH,TEMP3) 
AH=TRISNS( XT,YT,XLCW,YL0W,XHIGH,YHIGH,TEMP3» 
IF(AL.LT.C ..AND. AH. LT.O.. OR. AL.GT.O.. AND.AH.GT.C. ) GO 
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1 TC  621 

GO  TO  7C1 
68  CPNTSL  =  KC  CO. 

GC  TO  61 
6S  EXAMSLMfLCO. 

GO  TO  62 
C  OVERLAP  HAS  BEEN  ESTABLISHED 

C  CHECK  FOR  END  POINTS  OF  COMMON  SEGMENT 

72  IF  (CRNTSL.GT.10A0. IGO  TO  77 

RIGHT=AMIN1(AMAX1 (XLCW.XHIGH) , AMAX 1 ( XL OWE, XH IGHE ) ) 

ALEFT=AMAX1(  AM  INK  XL0W,XHIGH)  ,  AMI  Nl  (  XLOWE  ,  XH  IGHE  )  ) 

IF (RIGHT- A  LEFT )67,74,75 

75  ICVRLP=1 

74  HINSCT=PIGHT 
GC  TO  63 

76  HINSCT=ALEFT 
IOVRLP=f 

GC    TO    63 
C  SLOPE     IS    VERY    HIGH    USE    VERTICAL    COORDINATES 

7  7  RIGHT=AMIN1(AMAX1( YLOW,YHIGH) , AMAX 1 ( YLOWE , YHIGHE > ) 
ALEFT=AMAX1( AM  I Nl ( YLOW , YH I GH ) , AMI Nl (YLOWE , YHIGHE ) ) 
IF(RIGHT-ALEFT)67,79,80 

80  ICVRLP=-1 

79  VINSCT=PIGHT 
HINSCT=XLCW 
GC  TO  64 

81  VINSCT=ALEFT 
ICVPLP=C 

GC  TO  64 
67  CONTINUE 
RETURN 


SUBROUTINE  WINDOW 
IX1=XSTART(JDSPLY) 
IX2=XEND(JDSPLY) 
IY1=YSTART( JDSPLY) 
IY2=YEND( JDSPLY) 

IF  (  1X1  .GE.  LAND.  1X2.  GE.DGO    TO    461 
IF  (IX1.LE. -LAND. 1X2. LE.-1JGO    TO   461 
IFUY1.GF.  LAND.  IY2. GE.DGO    TO    461 
.IFUY1.LE.-1.AND.  IY2.LE.-1IGO    TO    461 
IAGN=1 

X=XSTART(JDSPLY) 
Y=YSTART(JOSPLY) 
IX=IX1 
IY=IY1 
401     IF (IX) 411,412,413 

411  VINSCT=Y+CRNTSL*(-1.-X) 

421     IFUBS(VINSCT)  .LE.1.IGO    TO    42.6 

423  IF(IY)424,461,425 
426    XTEMP=-L 

GC    TO    447 

424  HlNSCT=X+(-l.-Y)/CRNTSL 
YTEMP=-L 

<*22    IF(ABS(HINSCT  ).GT.l.  )GO    TO    461 
XTEMP=HINSCT 
GO    TO    45C 

425  HINSCT=X+( l.-YJ/CRNTSL 
YTEMP=L 

GO    TO    422 

412  IF(IY) 424,432,425 
432    XTEMP=X 

YTEMP=Y 
GO  TO  45T 

413  VINSCT=Y+CRNTSL*( l.-X) 
IF(ABS(VINSCT) .LE.1.IGO  TO  446 
GO  TO  42  3 

446  XTEMP=1. 

447  YTEMP=VINSCT 

450  GO    TO    (451  ,460) ,IAGN 

451  X=XEND(JDSPLY) 
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Y=YENO(JDSPLY  ) 

IX=IX2 

IY=IY2 

IAGN=2 

XSTAPT( JCS PLY) =XTE MP 

Y START (JDSPLY)=YTEMP 

GO  TO  AC1 

460  CONTINUE 
XEND(JOSPLY)=XTEMP 
YEND( JOSPLY)=YTEMP 
RETURN 

461  JDSPLY=JDSPLY-1 
RETURN 

SUBROUTINE  PLNLIN 
NTTL  =  IARPAY(1,  IFACE,8) 
LOC=IARRAY(2,  IFACE.8) 
PCINT=LSTFAC(LOC+NTTL-l) 
DO  98   J=l,3 

98  AA(J)=APRAY(POINT, J) 
POINT=LSTFAC(LOC) 

DO    99       J  =  l  ,3 

99  BB(J)=ARRAY(POINT, J) 
PCINT=LSTFAC(LOC*l  ) 
DO    ICO    J  =  l,3 

10O    CC(J)=ARRAY(POINT, J) 

CALL  PIERC (AA,BB,CC,OBSPOS,TEMPIN,PP) 
RETURN 

SUBROUTINE  DATSTR 

WP ITF(6,10) 

DO    501    NPT=1,N 

WPITE(6,5CC)NPT, ( ARRAY (NPT, J ) ,J=1,6),( (IARRAYt I, NPT, 7) 
1,1=1,2)) ,( (I ARRAY( I, NPT, J) ,1=1 ,2) ,J=8,13) 
501    CONTINUE 

WRITE(6,20) 

WRITE(6,110)  (LSTFACd  )  ,  1  =  1  ,LSPNTR) 

WRITE(6,20 ) 

WRITE(6,110)(LSTBFC(  I )  ,  1=1 , JPNTR) 

DO  980  J=1.JDSPLY 

WRITE(6,99C)XSTART(J),YSTART( J ) , XEND( J ) ,  YEND(  J ) 
980  CONTINUE 
10  FORMAT (1H1 ) 
20  FCRMATC///) 
110  F0RMAT(5X,5I8,5X,5I8) 

500  FORMAT (IX, 13, 2X, 4F1C. 3.2F 10. 6, 7< 2X ,2  I  4) ) 
990  F0PMAT(5X,2F10.6,10X,2F1C6) 

RETURN 

ENC 

SUBROUTINE  PI ERC ( P1,P2 .P3.PL1 , PL2 T PP) 

DIMENSION  Pl(3),P2(3),P3(3),PLl<3),PL2(3)1PP(3) 
C         THIS  SUBROUTINE  CALCULATES  THE  INTERSECTION  OF  A 
C  PLANE  DETERMINED  BY  POINTS  P1,P2,P3  AND  A  LINE 

C  WHICH  CONTAINS  POINTS  PL1  AND  PL2. 

C  THE  COORDINATES  OF  THE  INTERSECTION  ARE  RETURNED 

C  THE  ARRAY  PP    (PIERCING  POINT) 

C  THE  DIRECTION  NUMBERS  OF  THE  NORMAL  TO  THE  PLANE 

C  ARE  A,  B,  C. 

A=(P2(2)-P1(2))*(P3(3)-P1(3))-(P2(3)-P1(3))*(P3(2)- 
1PK2)) 

B=(P2(  31-PH3)  )*(P3(1)-P1(1)  )-(P2(l)-Pl(l)  )*(P3(3)- 
1P1 (3)) 

C=(P2(1)-P1<1)  )*(P3(2)-P1  (2)  )-(P2(2)-PK2)  )*(P3(  1)- 
1P1I1II 

D=-A*P1(1)-B*PK2)-C*P1(3) 

AL=PL2(1)-PL1( 1) 

BL=PL2(2)-PL1(2) 

CL=PL2(3)-PL1(3) 
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T  =  -(A*PL1<  1)+B*PL1  <2)*C*PLl<3)*D)/(A*AL*B*BL-»-C*CL  ) 

PP(1  )=AL*T+PL1(  1) 

PP(2)=BL*T+PL1(2) 

PP(3)=CL*T+PL1<3) 

RETURN 
ENC 

FUNCTION    DEPTH(X,Y,Z) 

COMMON /S DF R/ ALPHA, BET  A, GAMMA, PS  I, THET A, PHI ,OBJMV(3), 
1VIEWMVJ3) ,FOCUS,Y0FF, ZOFF , SCLE ,HMATRX (4,4 ) ,OBSPOS<12) 

DEPTH=X*HMATRX<1, 1)*Y*HMATRX( 2, 1) *Z*HMATRX ( 3 , 1 )  ♦ 
1HMATRX(4,1  ) 

RETURN 

ENC 

SUBROUTINE    DELETE ( LI  ST , I TEM) 

DIMENSION    LISTd) 

N=LIST(1) 

IEND=N+1 

DC    1     I=2,IEND 

IF(ITEM.EQ.LIST( I)  )GO    TO    2 

1  CONTINUE 
RETURN 

2  IF(I.EQ.IEND)GC    TO    3 
LISTt I »=LI ST( IEND) 

3  LISTd  )  =  N-1 
RETURN 

END 

SUBROUTINE  MERGE ( L 1ST , ITEM) 

DIMENSION  L I  ST ( 1 > 

N=LIST(1  ) 

IEND=N+1 

DO  1  1  =  2, 1  END 

IFdTEM.EQ.LISTU  )  )GO  TO  2 

1  CONTINUE 
LIST(N+2)=ITEM 
LISTd  )  =  N+1 

2  CONTINUE 
RETURN 
END 

SLBROUTINE    READCR ( N, TEMPIN ) 
DIMENSION    TEMPIN<3) 
IFIN.EQ.OGO    TO    1 
READ(5,2)N 
RETURN 

1  READ(5,3MTEMPIN(  I),  1=1,3) 
RETURN 

2  FORMAT(IIIO) 

3  FCRMAT(3F2<*.6) 
END 

SUBROUTINE  CROSS(A,B,C) 

DIMENSION  A(3) ,B(3),C(3) 
C  THIS  SUBROUTINE  CALCULATES  THE  CROSS  PRODUCT 

C  A  X  B  FOR  3  DIMENSIONAL  VECTORS 

C(1)=A(2)*B(3)-A<3)*B<2) 

C(2)=A<3)*B(1)-A< 1)*B(3) 

C<3)=A(1)*B(2)-A<2)*B(  1) 

RETURN 

END 
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